Fix #71

Author: thomasp85

NEWS.md

@@ -5,6 +5,8 @@
 * If image URLs doesn't indicate image format marquee will attempt to sniff it
 * Fixes an S7 compatibility issue with merge_element (#83)
 * marquee should no longer open a graphics device if none exists (#75)
+* `element_marquee()` now works with factor input and will fall back to
+  `element_text()` for expressions (#71)
 
 # marquee 1.1.0
 

R/element_marquee.R

@@ -128,6 +128,29 @@ element_grob.element_marquee <- function(
   if (is.null(label)) {
     return(ggplot2::zeroGrob())
   }
+  if (is.expression(label)) {
+    element$style <- NULL
+    element$width <- NULL
+    return(ggplot2::element_grob(
+      inject(element_text(
+        !!!element
+      )),
+      label,
+      x = x,
+      y = y,
+      family = family,
+      colour = colour,
+      size = size,
+      hjust = hjust,
+      vjust = vjust,
+      angle = angle,
+      lineheight = lineheight,
+      margin = margin,
+      margin_x = margin_x,
+      margin_y = margin_y
+    ))
+  }
+  label <- as.character(label)
   style <- style %||% element$style %||% classic_style()
   style <- modify_style(
     style,
@@ -341,4 +364,3 @@ rotate_just <- function(angle, hjust, vjust) {
     )
   )
 }
-