prevent partial matching of label parameter

teunbrand · teunbrand · commit eef7ef734d46 · 2025-10-30T10:04:23.000+01:00
diff --git a/R/layer.R b/R/layer.R
@@ -167,7 +167,7 @@ layer <- function(geom = NULL, stat = NULL,
   if (check.aes && length(extra_aes) > 0) {
     cli::cli_warn("Ignoring unknown aesthetics: {.field {extra_aes}}", call = call_env)
   }
-  aes_params$label <- normalise_label(aes_params$label)
+  aes_params[["label"]] <- normalise_label(aes_params[["label"]])
 
   # adjust the legend draw key if requested
   geom <- set_draw_key(geom, key_glyph %||% params$key_glyph)

Original file line number	Diff line number	Diff line change
`@@ -167,7 +167,7 @@ layer <- function(geom = NULL, stat = NULL,`
`167`	`167`	`if (check.aes && length(extra_aes) > 0) {`
`168`	`168`	`cli::cli_warn("Ignoring unknown aesthetics: {.field {extra_aes}}", call = call_env)`
`169`	`169`	`}`
`170`		`- aes_params$label <- normalise_label(aes_params$label)`
	`170`	`+ aes_params[["label"]] <- normalise_label(aes_params[["label"]])`
`171`	`171`
`172`	`172`	`# adjust the legend draw key if requested`
`173`	`173`	`geom <- set_draw_key(geom, key_glyph %\|\|% params$key_glyph)`