Fix #242

NEWS.md

@@ -4,6 +4,8 @@
   in a non-operation (i.e. the non-null part will be returned unmodified) (#290)
 * Fix a bug that prevented plots with multi-level strips from being merged 
   together (#277)
+* Patchworks will now render correctly when unserialised in a fresh session, 
+  providing the patchwork package is available (#242)
 
 # patchwork 1.1.2
 

R/aaa.R

@@ -17,3 +17,5 @@ GUIDE_TOP <- 5
 GUIDE_BOTTOM <- 15
 
 `%||%` <- function(x, y) if (is.null(x)) y else x
+
+patchwork_namespace_link <- function() NULL

R/add_plot.R

@@ -53,6 +53,8 @@ as_patchwork.default <- function(x) {
 as_patchwork.ggplot <- function(x) {
   class(x) <- c('patchwork', class(x))
   x$patches <- new_patchwork()
+  # Will ensure serialisation includes a link to the patchwork namespace
+  attr(x, 'patchwork_link') <- patchwork_namespace_link
   x
 }
 #' @export