Add ggplot_build() method for <ggplot_built> class

NAMESPACE

@@ -67,6 +67,7 @@ S3method(ggplot_add,list)
 S3method(ggplot_add,theme)
 S3method(ggplot_add,uneval)
 S3method(ggplot_build,ggplot)
+S3method(ggplot_build,ggplot_built)
 S3method(ggplot_gtable,ggplot_built)
 S3method(grid.draw,absoluteGrob)
 S3method(grid.draw,ggplot)

NEWS.md

@@ -1,6 +1,8 @@
 
 # ggplot2 (development version)
 
+* A new `ggplot_build()` S3 method for <ggplot_built> classes was added, which
+  returns input unaltered (@teunbrand, #5800).
 * `coord_map()` and `coord_polar()` throw informative warnings when used
   with the guide system (#5707).
 * When passing a function to `stat_contour(breaks)`, that function is used to

R/guides-.R

@@ -792,9 +792,7 @@ get_guide_data <- function(plot = last_plot(), aesthetic, panel = 1L) {
   check_string(aesthetic, allow_empty = FALSE)
   aesthetic <- standardise_aes_names(aesthetic)
 
-  if (!inherits(plot, "ggplot_built")) {
-    plot <- ggplot_build(plot)
-  }
+  plot <- ggplot_build(plot)
 
   if (!aesthetic %in% c("x", "y", "x.sec", "y.sec", "theta", "r")) {
     # Non position guides: check if aesthetic in colnames of key

R/plot-build.R

@@ -30,6 +30,12 @@ ggplot_build <- function(plot) {
   UseMethod('ggplot_build')
 }
 
+#' @export
+ggplot_build.ggplot_built <- function(plot) {
+  # This is a no-op
+  plot
+}
+
 #' @export
 ggplot_build.ggplot <- function(plot) {
   plot <- plot_clone(plot)