rename part_margin() to margin_part()

Author: teunbrand

NAMESPACE

@@ -485,6 +485,7 @@ export(layer_sf)
 export(lims)
 export(map_data)
 export(margin)
+export(margin_part)
 export(max_height)
 export(max_width)
 export(mean_cl_boot)
@@ -497,7 +498,6 @@ export(new_guide)
 export(old_guide)
 export(panel_cols)
 export(panel_rows)
-export(part_margin)
 export(pattern_alpha)
 export(position_dodge)
 export(position_dodge2)

NEWS.md

@@ -1,7 +1,7 @@
 # ggplot2 (development version)
 
 * Theme margins can have NA-units to inherit from parent elements. The new
-  function `part_margin()` has NA-units as default (@teunbrand, #6155)
+  function `margin_part()` has NA-units as default (@teunbrand, #6155)
 * Built-in `theme_*()` functions now have `ink` and `paper` arguments to control
   foreground and background colours respectively (@teunbrand)
 * The `summary()` method for ggplots is now more terse about facets 

R/margins.R

@@ -11,7 +11,7 @@ margin <- function(t = 0, r = 0, b = 0, l = 0, unit = "pt") {
 
 #' @rdname element
 #' @export
-part_margin <- function(t = NA, r = NA, b = NA, l = NA, unit = "pt") {
+margin_part <- function(t = NA, r = NA, b = NA, l = NA, unit = "pt") {
   margin(t = t, r = r, b = b, l = l, unit = unit)
 }
 

R/theme-elements.R

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

man/element.Rd

@@ -616,16 +616,16 @@ test_that("complete_theme completes a theme", {
   reset_theme_settings()
 })
 
-test_that("part_margin() mechanics work as expected", {
+test_that("margin_part() mechanics work as expected", {
 
   t <- theme_gray() +
-    theme(plot.margin = part_margin(b = 11))
+    theme(plot.margin = margin_part(b = 11))
 
   test <- calc_element("plot.margin", t)
   expect_equal(as.numeric(test), c(5.5, 5.5, 11, 5.5))
 
   t <- theme_gray() +
-    theme(margins = part_margin(b = 11))
+    theme(margins = margin_part(b = 11))
 
   test <- calc_element("plot.margin", t)
   expect_equal(as.numeric(test), c(5.5, 5.5, 11, 5.5))