patch.trellis: use grid.grabExpr instead

Yunuuuu · Sep 13, 2024 · a47a9fc · a47a9fc
1 parent 4ddf211
commit a47a9fc
Show file tree

Hide file tree

Showing 2 changed files with 23 additions and 5 deletions.
diff --git a/R/alignpatch-wrap.R b/R/alignpatch-wrap.R
@@ -218,14 +218,12 @@ offscreen <- function(width, height) {
 }
 
 #' @inherit patch.grob
+#' @inheritDotParams grid::grid.grabExpr -expr -device
 #' @inheritParams grid::grid.grabExpr
 #' @seealso [trellis][lattice::trellis.object]
 #' @export
 patch.trellis <- function(x, ..., device = NULL) {
-    grid::recordGrob(
-        print(plot, newpage = FALSE),
-        list(plot = plot, device = device %||% offscreen)
-    )
+    grid::grid.grabExpr(expr = print(x), ..., device = device %||% offscreen)
 }
 
 #' @inherit patch.grob

diff --git a/man/patch.trellis.Rd b/man/patch.trellis.Rd