prepopulate theme (#6304)

teunbrand · web-flow · commit 6e0664b78a7a · 2025-01-28T14:21:29.000+01:00
diff --git a/R/guides-.R b/R/guides-.R
@@ -274,7 +274,7 @@ Guides <- ggproto(
   #
   # The resulting guide is then drawn in ggplot_gtable
 
-  build = function(self, scales, layers, labels, layer_data, theme) {
+  build = function(self, scales, layers, labels, layer_data, theme = theme()) {
 
     # Empty guides list
     custom <- self$get_custom()

Original file line number	Diff line number	Diff line change
`@@ -274,7 +274,7 @@ Guides <- ggproto(`
`274`	`274`	`#`
`275`	`275`	`# The resulting guide is then drawn in ggplot_gtable`
`276`	`276`
`277`		`- build = function(self, scales, layers, labels, layer_data, theme) {`
	`277`	`+ build = function(self, scales, layers, labels, layer_data, theme = theme()) {`
`278`	`278`
`279`	`279`	`# Empty guides list`
`280`	`280`	`custom <- self$get_custom()`