Reapply #4574

thomasp85 · thomasp85 · commit 5fce5478a899 · 2022-04-27T09:42:13.000+02:00
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)
   }

Original file line number	Diff line number	Diff line change
`@@ -634,7 +634,7 @@ guide_gengrob.legend <- function(guide, theme) {`
`634`	`634`	`draw_key <- function(i) {`
`635`	`635`	`bg <- element_render(theme, "legend.key")`
`636`	`636`	`keys <- lapply(guide$geoms, function(g) {`
`637`		`- g$draw_key(g$data[i, ], g$params, key_size)`
	`637`	`+ g$draw_key(g$data[i, , drop = FALSE], g$params, key_size)`
`638`	`638`	`})`
`639`	`639`	`c(list(bg), keys)`
`640`	`640`	`}`