deprecate fatten

Author: teunbrand

R/geom-boxplot.R

@@ -241,6 +241,15 @@ GeomBoxplot <- ggproto("GeomBoxplot", Geom,
   extra_params = c("na.rm", "width", "orientation", "outliers"),
 
   setup_params = function(data, params) {
+    if (lifecycle::is_present(params$fatten)) {
+      deprecate_soft0(
+        "3.6.0", "geom_boxplot(fatten)",
+        "geom_boxplot(median.linewidth)"
+      )
+    } else {
+      # For backward compatibility reasons
+      params$fatten <- 2
+    }
     params$flipped_aes <- has_flipped_aes(data, params)
     params
   },

R/geom-crossbar.R

@@ -17,7 +17,7 @@ geom_crossbar <- function(mapping = NULL, data = NULL,
                           box.color         = NULL,
                           box.linetype      = NULL,
                           box.linewidth     = NULL,
-                          fatten = 2.5,
+                          fatten = deprecated(),
                           na.rm = FALSE,
                           orientation = NA,
                           show.legend = NA,
@@ -60,6 +60,15 @@ geom_crossbar <- function(mapping = NULL, data = NULL,
 #' @export
 GeomCrossbar <- ggproto("GeomCrossbar", Geom,
   setup_params = function(data, params) {
+    if (lifecycle::is_present(params$fatten)) {
+      deprecate_soft0(
+        "3.6.0", "geom_crossbar(fatten)",
+        "geom_crossbar(middle.linewidth)"
+      )
+    } else {
+      # For backward compatibility reasons
+      params$fatten <- 2.5
+    }
     GeomErrorbar$setup_params(data, params)
   },
 

R/geom-pointrange.R

@@ -3,7 +3,7 @@
 geom_pointrange <- function(mapping = NULL, data = NULL,
                             stat = "identity", position = "identity",
                             ...,
-                            fatten = 4,
+                            fatten = deprecated(),
                             na.rm = FALSE,
                             orientation = NA,
                             show.legend = NA,
@@ -42,6 +42,12 @@ GeomPointrange <- ggproto("GeomPointrange", Geom,
   required_aes = c("x", "y", "ymin|xmin", "ymax|xmax"),
 
   setup_params = function(data, params) {
+    if (lifecycle::is_present(params$fatten)) {
+      deprecate_soft0("3.6.0", "geom_pointrange(fatten)", I("the `size` aesthetic"))
+    } else {
+      # For backward compatibility reasons
+      params$fatten <- 4
+    }
     GeomLinerange$setup_params(data, params)
   },