fix plot modify in place

Yunuuuu · Dec 24, 2024 · 56178f6 · 56178f6
1 parent 46a7240
commit 56178f6
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/layout-quad-add.R b/R/layout-quad-add.R
@@ -306,7 +306,7 @@ quad_body_add <- function(object, quad, object_name) {
 #' @importFrom ggplot2 ggplot_add
 #' @export
 quad_body_add.default <- function(object, quad, object_name) {
-    quad@plot <- ggplot_add(object, quad@plot, object_name)
+    quad@plot <- ggplot_add(object, ggfun("plot_clone")(quad@plot), object_name)
     quad
 }
 

diff --git a/R/plot-.R b/R/plot-.R
@@ -171,7 +171,7 @@ plot_add <- function(object, plot, object_name) {
 #' @importFrom ggplot2 ggplot_add
 #' @export
 plot_add.default <- function(object, plot, object_name) {
-    plot@plot <- ggplot_add(object, plot@plot, object_name)
+    plot@plot <- ggplot_add(object, ggfun("plot_clone")(plot@plot), object_name)
     plot
 }