Unclass expression labels

yutannihilation · yutannihilation · commit 5d7848985440 · 2025-09-24T00:59:40.000+09:00
diff --git a/R/scale-.R b/R/scale-.R
@@ -1190,7 +1190,7 @@ ScaleContinuous <- ggproto("ScaleContinuous", Scale,
       labels <- lapply(labels, `[`, 1)
     }
     if (is.expression(labels)) {
-      labels <- as.list(labels)
+      labels <- as.list(unclass(labels))
     }
 
     labels
@@ -1438,7 +1438,7 @@ ScaleDiscrete <- ggproto("ScaleDiscrete", Scale,
     }
 
     if (is.expression(labels)) {
-      labels <- as.list(labels)
+      labels <- as.list(unclass(labels))
     }
     labels
   },
@@ -1689,7 +1689,7 @@ ScaleBinned <- ggproto("ScaleBinned", Scale,
       )
     }
     if (is.expression(labels)) {
-      labels <- as.list(labels)
+      labels <- as.list(unclass(labels))
     }
     labels
   },

Original file line number	Diff line number	Diff line change
`@@ -1190,7 +1190,7 @@ ScaleContinuous <- ggproto("ScaleContinuous", Scale,`
`1190`	`1190`	labels <- lapply(labels, `[`, 1)
`1191`	`1191`	`}`
`1192`	`1192`	`if (is.expression(labels)) {`
`1193`		`- labels <- as.list(labels)`
	`1193`	`+ labels <- as.list(unclass(labels))`
`1194`	`1194`	`}`
`1195`	`1195`
`1196`	`1196`	`labels`
`@@ -1438,7 +1438,7 @@ ScaleDiscrete <- ggproto("ScaleDiscrete", Scale,`
`1438`	`1438`	`}`
`1439`	`1439`
`1440`	`1440`	`if (is.expression(labels)) {`
`1441`		`- labels <- as.list(labels)`
	`1441`	`+ labels <- as.list(unclass(labels))`
`1442`	`1442`	`}`
`1443`	`1443`	`labels`
`1444`	`1444`	`},`
`@@ -1689,7 +1689,7 @@ ScaleBinned <- ggproto("ScaleBinned", Scale,`
`1689`	`1689`	`)`
`1690`	`1690`	`}`
`1691`	`1691`	`if (is.expression(labels)) {`
`1692`		`- labels <- as.list(labels)`
	`1692`	`+ labels <- as.list(unclass(labels))`
`1693`	`1693`	`}`
`1694`	`1694`	`labels`
`1695`	`1695`	`},`