use margin_auto() where appropriate

Author: teunbrand

R/geom-rug.R

@@ -45,7 +45,7 @@
 #' p +
 #'   geom_rug(outside = TRUE, sides = "tr") +
 #'   coord_cartesian(clip = "off") +
-#'   theme(plot.margin = margin(1, 1, 1, 1, "cm"))
+#'   theme(plot.margin = margin_auto(1, unit = "cm"))
 #'
 #' # increase the line length and
 #' # expand axis to avoid overplotting

R/legend-draw.R

@@ -277,7 +277,7 @@ draw_key_text <- function(data, params, size) {
       fontface   = data$fontface %||% 1,
       fontsize   = (data$size %||% 3.88) * .pt
     ),
-    margin = margin(0.1, 0.1, 0.1, 0.1, unit = "lines"),
+    margin = margin_auto(0.1, unit = "lines"),
     margin_x = TRUE, margin_y = TRUE
   )
   attr(grob, "width")  <- convertWidth(grobWidth(grob),   "cm", valueOnly = TRUE)

R/theme-defaults.R

@@ -143,7 +143,7 @@ theme_grey <- function(base_size = 11, base_family = "",
     title =              element_text(family = header_family),
 
     spacing = unit(half_line, "pt"),
-    margins = margin(half_line, half_line, half_line, half_line),
+    margins = margin_auto(half_line),
 
     geom =               element_geom(
                            ink = ink, paper = paper, accent = "#3366FF",
@@ -226,7 +226,7 @@ theme_grey <- function(base_size = 11, base_family = "",
     strip.text =         element_text(
                            colour = col_mix(ink, paper, 0.105),
                            size = rel(0.8),
-                           margin = margin(0.8 * half_line, 0.8 * half_line, 0.8 * half_line, 0.8 * half_line)
+                           margin = margin_auto(0.8 * half_line)
                          ),
     strip.text.x =       NULL,
     strip.text.y =       element_text(angle = -90),
@@ -341,7 +341,7 @@ theme_linedraw <- function(base_size = 11, base_family = "",
       strip.text       = element_text(
                            colour = paper,
                            size = rel(0.8),
-                           margin = margin(0.8 * half_line, 0.8 * half_line, 0.8 * half_line, 0.8 * half_line)
+                           margin = margin_auto(0.8 * half_line)
                          ),
 
       complete = TRUE
@@ -384,7 +384,7 @@ theme_light <- function(base_size = 11, base_family = "",
       strip.text       = element_text(
                            colour = paper,
                            size = rel(0.8),
-                           margin = margin(0.8 * half_line, 0.8 * half_line, 0.8 * half_line, 0.8 * half_line)
+                           margin = margin_auto(0.8 * half_line)
                          ),
 
       complete = TRUE
@@ -427,7 +427,7 @@ theme_dark <- function(base_size = 11, base_family = "",
       strip.text       = element_text(
                            colour = col_mix(ink, paper, 0.9),
                            size = rel(0.8),
-                           margin = margin(0.8 * half_line, 0.8 * half_line, 0.8 * half_line, 0.8 * half_line)
+                           margin = margin_auto(0.8 * half_line)
                          ),
 
       complete = TRUE
@@ -518,7 +518,7 @@ theme_void <- function(base_size = 11, base_family = "",
                          ),
     title =              element_text(family = header_family),
     spacing =            unit(half_line, "pt"),
-    margins =            margin(half_line, half_line, half_line, half_line),
+    margins =            margin_auto(half_line),
     axis.text =          element_blank(),
     axis.title =         element_blank(),
     axis.ticks.length =  rel(0),
@@ -602,7 +602,7 @@ theme_test <- function(base_size = 11, base_family = "",
                          ),
     title =              element_text(family = header_family),
     spacing = unit(half_line, "pt"),
-    margins = margin(half_line, half_line, half_line, half_line),
+    margins = margin_auto(half_line),
     geom =               element_geom(
                            ink = ink, paper = paper, accent = "#3366FF",
                            linewidth = base_line_size, borderwidth = base_line_size,
@@ -651,7 +651,7 @@ theme_test <- function(base_size = 11, base_family = "",
     legend.spacing =     rel(2),
     legend.spacing.x =   NULL,
     legend.spacing.y =   NULL,
-    legend.margin =      margin(0, 0, 0, 0, "cm"),
+    legend.margin =      margin_auto(0, unit = "cm"),
     legend.key =         NULL,
     legend.key.size =    unit(1.2, "lines"),
     legend.key.height =  NULL,
@@ -666,7 +666,7 @@ theme_test <- function(base_size = 11, base_family = "",
     legend.direction =   NULL,
     legend.justification = "center",
     legend.box =         NULL,
-    legend.box.margin =  margin(0, 0, 0, 0, "cm"),
+    legend.box.margin =  margin_auto(0, unit = "cm"),
     legend.box.background = element_blank(),
     legend.box.spacing = rel(2),
 
@@ -687,7 +687,7 @@ theme_test <- function(base_size = 11, base_family = "",
     strip.text =         element_text(
                            colour = col_mix(ink, paper, 0.105),
                            size = rel(0.8),
-                           margin = margin(0.8 * half_line, 0.8 * half_line, 0.8 * half_line, 0.8 * half_line)
+                           margin = margin_auto(0.8 * half_line)
                          ),
     strip.text.x =       NULL,
     strip.text.y =       element_text(angle = -90),

R/theme-elements.R

@@ -43,7 +43,7 @@
 #'
 #' plot + theme(
 #'   panel.background = element_rect(fill = "white"),
-#'   plot.margin = margin(2, 2, 2, 2, "cm"),
+#'   plot.margin = margin_auto(2, unit = "cm"),
 #'   plot.background = element_rect(
 #'     fill = "grey90",
 #'     colour = "black",

R/theme.R

@@ -281,14 +281,14 @@
 #'   legend.position.inside = c(.95, .95),
 #'   legend.justification = c("right", "top"),
 #'   legend.box.just = "right",
-#'   legend.margin = margin(6, 6, 6, 6)
+#'   legend.margin = margin_auto(6)
 #' )
 #'
 #' # The legend.box properties work similarly for the space around
 #' # all the legends
 #' p2 + theme(
 #'   legend.box.background = element_rect(),
-#'   legend.box.margin = margin(6, 6, 6, 6)
+#'   legend.box.margin = margin_auto(6)
 #' )
 #'
 #' # You can also control the display of the keys