From 56178f695d920d24ade2f2ff267c20ff1fda2656 Mon Sep 17 00:00:00 2001
From: Yunuuuu <yunyunpp96@outlook.com>
Date: Wed, 25 Dec 2024 03:05:15 +0800
Subject: [PATCH] fix plot modify in place

---
 R/layout-quad-add.R | 2 +-
 R/plot-.R           | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/layout-quad-add.R b/R/layout-quad-add.R
index d7f7a18c..82a84e90 100644
--- 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
index 0341cc35..8267fde1 100644
--- 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
 }