Allow using optional_aes in Stat (#4002)

thomasp85 · web-flow · commit a9ffcb037740 · 2020-05-18T09:06:58.000+02:00
diff --git a/R/stat-.r b/R/stat-.r
@@ -61,6 +61,8 @@ Stat <- ggproto("Stat",
 
   non_missing_aes = character(),
 
+  optional_aes = character(),
+
   setup_params = function(data, params) {
     params
   },
@@ -155,7 +157,7 @@ Stat <- ggproto("Stat",
     } else {
       required_aes <- unlist(strsplit(self$required_aes, '|', fixed = TRUE))
     }
-    c(union(required_aes, names(self$default_aes)), "group")
+    c(union(required_aes, names(self$default_aes)), self$optional_aes, "group")
   }
 
 )

Original file line number	Diff line number	Diff line change
`@@ -61,6 +61,8 @@ Stat <- ggproto("Stat",`
`61`	`61`
`62`	`62`	`non_missing_aes = character(),`
`63`	`63`
	`64`	`+ optional_aes = character(),`
	`65`	`+`
`64`	`66`	`setup_params = function(data, params) {`
`65`	`67`	`params`
`66`	`68`	`},`
`@@ -155,7 +157,7 @@ Stat <- ggproto("Stat",`
`155`	`157`	`} else {`
`156`	`158`	`required_aes <- unlist(strsplit(self$required_aes, '\|', fixed = TRUE))`
`157`	`159`	`}`
`158`		`- c(union(required_aes, names(self$default_aes)), "group")`
	`160`	`+ c(union(required_aes, names(self$default_aes)), self$optional_aes, "group")`
`159`	`161`	`}`
`160`	`162`
`161`	`163`	`)`