From bbe2603e4be1af2b534cbee6db1f7d12b8074d3d Mon Sep 17 00:00:00 2001
From: Teun van den Brand <49372158+teunbrand@users.noreply.github.com>
Date: Wed, 4 Aug 2021 23:08:26 +0200
Subject: [PATCH] Fix small bug in key drawing

---
 R/guide-legend.r | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/guide-legend.r b/R/guide-legend.r
index 6aa593342c..bb7a44d9a4 100644
--- a/R/guide-legend.r
+++ b/R/guide-legend.r
@@ -634,7 +634,7 @@ guide_gengrob.legend <- function(guide, theme) {
   draw_key <- function(i) {
     bg <- element_render(theme, "legend.key")
     keys <- lapply(guide$geoms, function(g) {
-      g$draw_key(g$data[i, ], g$params, key_size)
+      g$draw_key(g$data[i, , drop = FALSE], g$params, key_size)
     })
     c(list(bg), keys)
   }