Add default value for legend.position (#2642)

hadley · web-flow · commit 3f63d6235d96 · 2018-05-21T10:33:28.000-07:00
Fixes #2640
diff --git a/R/plot-build.r b/R/plot-build.r
@@ -159,7 +159,7 @@ ggplot_gtable.ggplot_built <- function(data) {
   plot_table <- layout$render(geom_grobs, data, theme, plot$labels)
 
   # Legends
-  position <- theme$legend.position
+  position <- theme$legend.position %||% "right"
   if (length(position) == 2) {
     position <- "manual"
   }

Original file line number	Diff line number	Diff line change
`@@ -159,7 +159,7 @@ ggplot_gtable.ggplot_built <- function(data) {`
`159`	`159`	`plot_table <- layout$render(geom_grobs, data, theme, plot$labels)`
`160`	`160`
`161`	`161`	`# Legends`
`162`		`- position <- theme$legend.position`
	`162`	`+ position <- theme$legend.position %\|\|% "right"`
`163`	`163`	`if (length(position) == 2) {`
`164`	`164`	`position <- "manual"`
`165`	`165`	`}`