From cbceae009373283fbf3971ab9989c022cf82da3f Mon Sep 17 00:00:00 2001
From: Teun van den Brand <tahvdbrand@gmail.com>
Date: Wed, 12 Nov 2025 14:51:33 +0100
Subject: [PATCH] don't bother subsetting labels

---
 R/layer.R | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/R/layer.R b/R/layer.R
index 179f519441..99ad92a4ff 100644
--- 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.