use add_theme() directly

teunbrand · teunbrand · commit 5e6028e55991 · 2025-01-22T15:52:21.000+01:00
diff --git a/R/guides-.R b/R/guides-.R
@@ -546,7 +546,8 @@ Guides <- ggproto(
           legend.justification.inside = groups$key$justs[[i]]
         )
       }
-      grobs[[i]] <- self$package_box(grobs[[i]], position, theme + adjust)
+      adjust <- add_theme(theme, adjust, "internal theme settings")
+      grobs[[i]] <- self$package_box(grobs[[i]], position, adjust)
     }
 
     # merge inside grobs into single gtable

Original file line number	Diff line number	Diff line change
`@@ -546,7 +546,8 @@ Guides <- ggproto(`
`546`	`546`	`legend.justification.inside = groups$key$justs[[i]]`
`547`	`547`	`)`
`548`	`548`	`}`
`549`		`- grobs[[i]] <- self$package_box(grobs[[i]], position, theme + adjust)`
	`549`	`+ adjust <- add_theme(theme, adjust, "internal theme settings")`
	`550`	`+ grobs[[i]] <- self$package_box(grobs[[i]], position, adjust)`
`550`	`551`	`}`
`551`	`552`
`552`	`553`	`# merge inside grobs into single gtable`