avoid recursion issue when theme is missing

teunbrand · teunbrand · commit 7a886b83ccf9 · 2025-06-17T12:06:24.000+02: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 = theme()) {
+  build = function(self, scales, layers, labels, layer_data, theme = NULL) {
 
     # Empty guides list
     custom <- self$get_custom()
@@ -300,6 +300,7 @@ Guides <- ggproto(
     }
 
     # Merge and process layers
+    theme <- theme %||% theme()
     guides$merge()
     guides$process_layers(layers, layer_data, theme)
     if (length(guides$guides) == 0) {

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 = theme()) {`
	`277`	`+ build = function(self, scales, layers, labels, layer_data, theme = NULL) {`
`278`	`278`
`279`	`279`	`# Empty guides list`
`280`	`280`	`custom <- self$get_custom()`
`@@ -300,6 +300,7 @@ Guides <- ggproto(`
`300`	`300`	`}`
`301`	`301`
`302`	`302`	`# Merge and process layers`
	`303`	`+ theme <- theme %\|\|% theme()`
`303`	`304`	`guides$merge()`
`304`	`305`	`guides$process_layers(layers, layer_data, theme)`
`305`	`306`	`if (length(guides$guides) == 0) {`