Add missing element_grob()

teunbrand · teunbrand · commit 3d5e9d22969c · 2024-01-25T09:56:59.000+01:00
diff --git a/R/guide-custom.R b/R/guide-custom.R
@@ -120,7 +120,7 @@ GuideCustom <- ggproto(
     gt <- gtable_add_padding(gt, elems$margin)
 
     gt <- gtable_add_grob(
-      gt, elems$background,
+      gt, element_grob(elems$background),
       t = 1, l = 1, r = -1, b = -1,
       z = -Inf, clip = "off"
     )

Original file line number	Diff line number	Diff line change
`@@ -120,7 +120,7 @@ GuideCustom <- ggproto(`
`120`	`120`	`gt <- gtable_add_padding(gt, elems$margin)`
`121`	`121`
`122`	`122`	`gt <- gtable_add_grob(`
`123`		`- gt, elems$background,`
	`123`	`+ gt, element_grob(elems$background),`
`124`	`124`	`t = 1, l = 1, r = -1, b = -1,`
`125`	`125`	`z = -Inf, clip = "off"`
`126`	`126`	`)`