inline update_guides()

Author: teunbrand

R/guides-.R

@@ -109,19 +109,6 @@ guides <- function(...) {
   NULL
 }
 
-update_guides <- function(p, guides) {
-  p <- plot_clone(p)
-  if (inherits(p$guides, "Guides")) {
-    old <- p$guides
-    new <- ggproto(NULL, old)
-    new$add(guides)
-    p$guides <- new
-  } else {
-    p$guides <- guides
-  }
-  p
-}
-
 # Class -------------------------------------------------------------------
 
 # Guides object encapsulates multiple guides and their state.

R/plot-construction.R

@@ -126,7 +126,16 @@ ggplot_add.labels <- function(object, plot, object_name) {
 }
 #' @export
 ggplot_add.Guides <- function(object, plot, object_name) {
-  update_guides(plot, object)
+  if (inherits(plot$guides, "Guides")) {
+    # We clone the guides object to prevent modify-in-place of guides
+    old <- plot$guides
+    new <- ggproto(NULL, old)
+    new$add(object)
+    plot$guides <- new
+  } else {
+    plot$guides <- object
+  }
+  plot
 }
 #' @export
 ggplot_add.uneval <- function(object, plot, object_name) {