From 4bc4e4f90079cddbf2137e2544cb3b5e8eaac941 Mon Sep 17 00:00:00 2001
From: Teun van den Brand <tahvdbrand@gmail.com>
Date: Thu, 18 Jul 2024 17:07:30 +0200
Subject: [PATCH] additional workaround for expressions

---
 R/guide-bins.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/guide-bins.R b/R/guide-bins.R
index 9a8fa03d64..d1856a69ed 100644
--- a/R/guide-bins.R
+++ b/R/guide-bins.R
@@ -154,7 +154,7 @@ GuideBins <- ggproto(
     key$.show  <- NA
 
     labels <- scale$get_labels(breaks)
-    if (is.character(scale$labels) || is.numeric(scale$labels)) {
+    if (is.character(scale$labels) || is.numeric(scale$labels) || is.expression(scale$labels)) {
       limit_lab <- c(NA, NA)
     } else {
       limit_lab <- scale$get_labels(limits)
@@ -261,7 +261,7 @@ GuideBins <- ggproto(
 
     list(labels = flip_element_grob(
       elements$text,
-      label = key$.label,
+      label = validate_labels(key$.label),
       x = unit(key$.value, "npc"),
       margin_x = FALSE,
       margin_y = TRUE,