don't warn when fatten is absent (#6310)

Author: teunbrand

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)"

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