fix mistake

teunbrand · teunbrand · commit a7665da9fca4 · 2025-04-07T15:51:46.000+02:00
diff --git a/R/geom-.R b/R/geom-.R
@@ -227,7 +227,7 @@ Geom <- ggproto("Geom",
       required_aes <- unlist(strsplit(self$required_aes, '|', fixed = TRUE))
     }
     optional_aes <- self$optional_aes
-    if (length(optional_aes) > 1) {
+    if (length(optional_aes) > 0) {
       deprecate_soft0(
         "4.0.0",
         I("The `optional_aes` field"),
diff --git a/R/stat-.R b/R/stat-.R
@@ -214,7 +214,7 @@ Stat <- ggproto("Stat",
       required_aes <- unlist(strsplit(self$required_aes, '|', fixed = TRUE))
     }
     optional_aes <- self$optional_aes
-    if (length(optional_aes) > 1) {
+    if (length(optional_aes) > 0) {
       deprecate_soft0(
         "4.0.0",
         I("The `optional_aes` field"),

Original file line number	Diff line number	Diff line change
`@@ -227,7 +227,7 @@ Geom <- ggproto("Geom",`
`227`	`227`	`required_aes <- unlist(strsplit(self$required_aes, '\|', fixed = TRUE))`
`228`	`228`	`}`
`229`	`229`	`optional_aes <- self$optional_aes`
`230`		`- if (length(optional_aes) > 1) {`
	`230`	`+ if (length(optional_aes) > 0) {`
`231`	`231`	`deprecate_soft0(`
`232`	`232`	`"4.0.0",`
`233`	`233`	I("The `optional_aes` field"),
Original file line number	Diff line number	Diff line change
`@@ -214,7 +214,7 @@ Stat <- ggproto("Stat",`
`214`	`214`	`required_aes <- unlist(strsplit(self$required_aes, '\|', fixed = TRUE))`
`215`	`215`	`}`
`216`	`216`	`optional_aes <- self$optional_aes`
`217`		`- if (length(optional_aes) > 1) {`
	`217`	`+ if (length(optional_aes) > 0) {`
`218`	`218`	`deprecate_soft0(`
`219`	`219`	`"4.0.0",`
`220`	`220`	I("The `optional_aes` field"),