Fix missing default setting for angles in element_grob.element_text(). …

…Closes #2544. (#2557)
tidyverse · May 7, 2018 · 756dfa5 · 756dfa5
1 parent 9034d53
commit 756dfa5
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 4 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -328,6 +328,8 @@ up correct aspect ratio, and draws a graticule.
   to make sure the two legend functions behave as similarly as possible.
   (@clauswilke, #2397 and #2398)
 
+* Non-angle parameters of `label.theme` or `title.theme` can now be set in `guide_legend()` and
+  `guide_colorbar()`. (@clauswilke, #2544)
 
 ### Other
 

diff --git a/R/theme-elements.r b/R/theme-elements.r
@@ -203,10 +203,7 @@ element_grob.element_text <- function(element, label = "", x = NULL, y = NULL,
   hj <- hjust %||% element$hjust
   margin <- margin %||% element$margin
 
-  angle <- angle %||% element$angle
-  if (is.null(angle)) {
-    stop("Text element requires non-NULL value for 'angle'.")
-  }
+  angle <- angle %||% element$angle %||% 0
 
   # The gp settings can override element_gp
   gp <- gpar(fontsize = size, col = colour,