don't bother subsetting labels (#6745)

teunbrand · web-flow · commit 4387ed75699d · 2025-11-12T15:09:46.000+01:00
diff --git a/R/layer.R b/R/layer.R
@@ -972,10 +972,8 @@ normalise_label <- function(label) {
     return(NULL)
   }
   if (obj_is_list(label)) {
-    # Ensure that each element in the list has length 1
+    # Ensure no elements are empty
     label[lengths(label) == 0] <- ""
-    truncate <- !vapply(label, is.call, logical(1)) # Don't mess with call/formula
-    label[truncate] <- lapply(label[truncate], `[`, 1)
   }
   if (is.expression(label)) {
     # Classed expressions, when converted to lists, retain their class.

Original file line number	Diff line number	Diff line change
`@@ -972,10 +972,8 @@ normalise_label <- function(label) {`
`972`	`972`	`return(NULL)`
`973`	`973`	`}`
`974`	`974`	`if (obj_is_list(label)) {`
`975`		`- # Ensure that each element in the list has length 1`
	`975`	`+ # Ensure no elements are empty`
`976`	`976`	`label[lengths(label) == 0] <- ""`
`977`		`- truncate <- !vapply(label, is.call, logical(1)) # Don't mess with call/formula`
`978`		- label[truncate] <- lapply(label[truncate], `[`, 1)
`979`	`977`	`}`
`980`	`978`	`if (is.expression(label)) {`
`981`	`979`	`# Classed expressions, when converted to lists, retain their class.`