express optional aesthetics as NULL-aesthetics in default_aes

Author: teunbrand

R/geom-rug.R

@@ -86,7 +86,6 @@ geom_rug <- function(mapping = NULL, data = NULL,
 #' @usage NULL
 #' @export
 GeomRug <- ggproto("GeomRug", Geom,
-  optional_aes = c("x", "y"),
 
   draw_panel = function(self, data, panel_params, coord, lineend = "butt",
                         sides = "bl", outside = FALSE, length = unit(0.03, "npc")) {
@@ -153,7 +152,7 @@ GeomRug <- ggproto("GeomRug", Geom,
     gTree(children = inject(gList(!!!rugs)))
   },
 
-  default_aes = GeomPath$default_aes,
+  default_aes = aes(x = NULL, y = NULL, !!!GeomPath$default_aes),
 
   draw_key = draw_key_path,
 

R/geom-smooth.R

@@ -166,9 +166,9 @@ GeomSmooth <- ggproto("GeomSmooth", Geom,
   draw_key = draw_key_smooth,
 
   required_aes = c("x", "y"),
-  optional_aes = c("ymin", "ymax"),
 
   default_aes = aes(
+    ymin = NULL, ymax = NULL,
     colour = from_theme(colour %||% accent),
     fill = from_theme(fill %||% col_mix(ink, paper, 0.6)),
     linewidth = from_theme(2 * linewidth),

R/stat-ellipse.R

@@ -77,7 +77,7 @@ stat_ellipse <- function(mapping = NULL, data = NULL,
 #' @export
 StatEllipse <- ggproto("StatEllipse", Stat,
   required_aes = c("x", "y"),
-  optional_aes = "weight",
+  default_aes = aes(weight = NULL),
   dropped_aes = "weight",
 
   setup_params = function(data, params) {