implement as.gtable methods

teunbrand · teunbrand · commit ef5db54fec83 · 2025-03-14T10:27:51.000+01:00
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -35,7 +35,7 @@ Imports:
     cli,
     grDevices,
     grid,
-    gtable (>= 0.1.1),
+    gtable (>= 0.3.6),
     isoband,
     lifecycle (> 1.0.1),
     rlang (>= 1.1.0),
diff --git a/R/plot-build.R b/R/plot-build.R
@@ -320,6 +320,9 @@ ggplotGrob <- function(x) {
   ggplot_gtable(ggplot_build(x))
 }
 
+S7::method(as.gtable, class_ggplot) <- ggplotGrob
+S7::method(as.gtable, class_ggplot_built) <- ggplotGrob
+
 # Apply function to layer and matching data
 by_layer <- function(f, layers, data, step = NULL) {
   ordinal <- label_ordinal()

Original file line number	Diff line number	Diff line change
`@@ -320,6 +320,9 @@ ggplotGrob <- function(x) {`
`320`	`320`	`ggplot_gtable(ggplot_build(x))`
`321`	`321`	`}`
`322`	`322`
	`323`	`+S7::method(as.gtable, class_ggplot) <- ggplotGrob`
	`324`	`+S7::method(as.gtable, class_ggplot_built) <- ggplotGrob`
	`325`	`+`
`323`	`326`	`# Apply function to layer and matching data`
`324`	`327`	`by_layer <- function(f, layers, data, step = NULL) {`
`325`	`328`	`ordinal <- label_ordinal()`