Fix regression theme(legend.direction) (#5508)

* use correct direction * Add test
tidyverse · Nov 27, 2023 · 44c2497 · 44c2497
1 parent 091d92a
commit 44c2497
Show file tree

Hide file tree

Showing 4 changed files with 248 additions and 1 deletion.
diff --git a/R/guides-.R b/R/guides-.R
@@ -491,7 +491,7 @@ Guides <- ggproto(
       horizontal = c("center", "top")
     )
 
-    grobs <- self$draw(theme, position, default_direction)
+    grobs <- self$draw(theme, position, theme$legend.direction)
     if (length(grobs) < 1) {
       return(zeroGrob())
     }

diff --git a/tests/testthat/_snaps/guides/horizontal-legend-direction.svg b/tests/testthat/_snaps/guides/horizontal-legend-direction.svg