make a comment for the next person to trip over this

teunbrand · teunbrand · commit 97135956920d · 2024-09-23T12:30:44.000+02:00
diff --git a/R/aes.R b/R/aes.R
@@ -189,6 +189,9 @@ rename_aes <- function(x) {
   }
   x
 }
+
+# `x` is assumed to be a strict list of quosures;
+# it should have no non-quosure constants in it, even though `aes()` allows it.
 substitute_aes <- function(x, fun = standardise_aes_symbols, ...) {
   x <- lapply(x, function(aesthetic) {
     as_quosure(fun(quo_get_expr(aesthetic), ...), env = environment(aesthetic))

Original file line number	Diff line number	Diff line change
`@@ -189,6 +189,9 @@ rename_aes <- function(x) {`
`189`	`189`	`}`
`190`	`190`	`x`
`191`	`191`	`}`
	`192`	`+`
	`193`	+# `x` is assumed to be a strict list of quosures;
	`194`	+# it should have no non-quosure constants in it, even though `aes()` allows it.
`192`	`195`	`substitute_aes <- function(x, fun = standardise_aes_symbols, ...) {`
`193`	`196`	`x <- lapply(x, function(aesthetic) {`
`194`	`197`	`as_quosure(fun(quo_get_expr(aesthetic), ...), env = environment(aesthetic))`