cast expressions to lists

tidyverse · Jul 18, 2024 · a91d4f5 · a91d4f5
1 parent c679d43
commit a91d4f5
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/R/guide-bins.R b/R/guide-bins.R
@@ -169,6 +169,9 @@ GuideBins <- ggproto(
  } else {
  key$.show[nrow(key)] <- TRUE
  }
+ if (is.expression(labels)) {
+ labels <- as.list(labels)
+ }
 
  key$.label <- labels
  key <- vec_slice(key, !is.na(oob_censor_any(key$.value)))

diff --git a/R/guide-colorsteps.R b/R/guide-colorsteps.R
@@ -114,7 +114,11 @@ GuideColoursteps <- ggproto(
  } else {
  key$.value <- breaks
  }
- key$.label <- scale$get_labels(breaks)
+ labels <- scale$get_labels(breaks)
+ if (is.expression(labels)) {
+ labels <- as.list(labels)
+ }
+ key$.label <- labels
 
  if (breaks[1] %in% limits) {
  key$.value <- key$.value - 1L