Reapply #4574

tidyverse · Apr 27, 2022 · 5fce547 · 5fce547
1 parent 30065fc
commit 5fce547
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)
   }