new margin_auto()

Author: teunbrand

NAMESPACE

@@ -485,6 +485,7 @@ export(layer_sf)
 export(lims)
 export(map_data)
 export(margin)
+export(margin_auto)
 export(margin_part)
 export(max_height)
 export(max_width)

R/margins.R

@@ -15,6 +15,12 @@ margin_part <- function(t = NA, r = NA, b = NA, l = NA, unit = "pt") {
   margin(t = t, r = r, b = b, l = l, unit = unit)
 }
 
+#' @rdname element
+#' @export
+margin_auto <- function(t = 0, r = t, b = t, l = r, unit = "pt") {
+  margin(t = t, r = r, b = b, l = l, unit)
+}
+
 is.margin <- function(x) {
   inherits(x, "margin")
 }

R/theme-elements.R

@@ -11,7 +11,8 @@
 #'   - `element_geom()`: defaults for drawing layers.
 #'
 #' `rel()` is used to specify sizes relative to the parent,
-#' `margin()` and `margin_part()` are used to specify the margins of elements.
+#' `margin()`, `margin_part()` and `margin_auto()` are all used to specify the
+#' margins of elements.
 #'
 #' @param fill Fill colour.
 #' @param colour,color Line/border colour. Color is an alias for colour.