From 4c98c003f71afafc4bf6f85f4464f61117b399e7 Mon Sep 17 00:00:00 2001
From: Teun van den Brand <tahvdbrand@gmail.com>
Date: Tue, 6 Feb 2024 17:02:10 +0100
Subject: [PATCH] discard empty colourbar

---
 R/guide-colorbar.R | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/R/guide-colorbar.R b/R/guide-colorbar.R
index c0f2c15e7f..a1ca5b88cf 100644
--- a/R/guide-colorbar.R
+++ b/R/guide-colorbar.R
@@ -224,7 +224,11 @@ GuideColourbar <- ggproto(
       cli::cli_warn("{.fn guide_colourbar} needs continuous scales.")
       return(NULL)
     }
-    Guide$extract_key(scale, aesthetic, ...)
+    key <- Guide$extract_key(scale, aesthetic, ...)
+    if (NROW(key) == 0) {
+      return(NULL)
+    }
+    key
   },
 
   extract_decor = function(scale, aesthetic, nbin = 300, reverse = FALSE, alpha = NA, ...) {