diff --git a/R/geom-crossbar.R b/R/geom-crossbar.R index 8f9d8ccd74..f1db25bab9 100644 --- a/R/geom-crossbar.R +++ b/R/geom-crossbar.R @@ -60,7 +60,7 @@ geom_crossbar <- function(mapping = NULL, data = NULL, #' @export GeomCrossbar <- ggproto("GeomCrossbar", Geom, setup_params = function(data, params) { - if (lifecycle::is_present(params$fatten)) { + if (lifecycle::is_present(params$fatten %||% deprecated())) { deprecate_soft0( "3.6.0", "geom_crossbar(fatten)", "geom_crossbar(middle.linewidth)" diff --git a/R/geom-pointrange.R b/R/geom-pointrange.R index 1943bb4f4c..c13b6a813e 100644 --- a/R/geom-pointrange.R +++ b/R/geom-pointrange.R @@ -42,7 +42,7 @@ GeomPointrange <- ggproto("GeomPointrange", Geom, required_aes = c("x", "y", "ymin|xmin", "ymax|xmax"), setup_params = function(data, params) { - if (lifecycle::is_present(params$fatten)) { + if (lifecycle::is_present(params$fatten %||% deprecated())) { deprecate_soft0("3.6.0", "geom_pointrange(fatten)", I("the `size` aesthetic")) } else { # For backward compatibility reasons