patch(): fix gList method

Yunuuuu · Yunuuuu · commit 477757889df2 · 2025-01-03T02:19:30.000+08:00
diff --git a/R/alignpatch-inset.R b/R/alignpatch-inset.R
@@ -98,7 +98,7 @@ patch.grob <- function(x, ...) {
 #' @rdname patch.grob
 patch.gList <- function(x, ...) {
     # gLists need to be wrapped in a grob tree
-    grid::grobTree(plot)
+    grid::grobTree(x)
 }
 
 #' @importFrom ggplot2 ggplotGrob

Original file line number	Diff line number	Diff line change
`@@ -98,7 +98,7 @@ patch.grob <- function(x, ...) {`
`98`	`98`	`#' @rdname patch.grob`
`99`	`99`	`patch.gList <- function(x, ...) {`
`100`	`100`	`# gLists need to be wrapped in a grob tree`
`101`		`- grid::grobTree(plot)`
	`101`	`+ grid::grobTree(x)`
`102`	`102`	`}`
`103`	`103`
`104`	`104`	`#' @importFrom ggplot2 ggplotGrob`