Add rename_size=TRUE to GeomSf, GeomCrossbar, GeomPointrange, and GeomSmooth (#4884)

Author: yutannihilation

R/geom-crossbar.r

@@ -107,5 +107,7 @@ GeomCrossbar <- ggproto("GeomCrossbar", Geom,
       GeomPolygon$draw_panel(box, panel_params, coord, lineend = lineend, linejoin = linejoin),
       GeomSegment$draw_panel(middle, panel_params, coord, lineend = lineend, linejoin = linejoin)
     )))
-  }
+  },
+
+  rename_size = TRUE
 )

R/geom-pointrange.r

@@ -57,5 +57,7 @@ GeomPointrange <- ggproto("GeomPointrange", Geom,
         GeomPoint$draw_panel(transform(data, size = size * fatten), panel_params, coord)
       ))
     )
-  }
+  },
+
+  rename_size = TRUE
 )

R/geom-sf.R

@@ -149,7 +149,9 @@ GeomSf <- ggproto("GeomSf", Geom,
     } else {
       draw_key_polygon(data, params, size)
     }
-  }
+  },
+
+  rename_size = TRUE
 )
 
 default_aesthetics <- function(type) {

R/geom-smooth.r

@@ -160,5 +160,7 @@ GeomSmooth <- ggproto("GeomSmooth", Geom,
   optional_aes = c("ymin", "ymax"),
 
   default_aes = aes(colour = "#3366FF", fill = "grey60", linewidth = 1,
-    linetype = 1, weight = 1, alpha = 0.4)
+    linetype = 1, weight = 1, alpha = 0.4),
+
+  rename_size = TRUE
 )