Fix #317 and fix #293

thomasp85 · Aug 14, 2023 · 0da0f22 · 0da0f22
1 parent 1f87c00
commit 0da0f22
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 0 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -38,6 +38,8 @@ S3method(has_tag,plot_filler)
 S3method(has_tag,spacer)
 S3method(has_tag,wrapped_patch)
 S3method(length,patch_area)
+S3method(length,patchwork)
+S3method(names,patchwork)
 S3method(patchGrob,guide_area)
 S3method(patchGrob,patch)
 S3method(patchGrob,table_patch)

diff --git a/NEWS.md b/NEWS.md
@@ -12,6 +12,9 @@
   in different order (#274)
 * Fixed a bug that prevented nested patchworks with empty columns or rows at the 
   bottom or to the right to be inserted into a layout (#273)
+* Patchwork objects now behaves more correctly like an unnamed list of ggplots. 
+  This makes `View()` work on them (#317), and allow one to use `length()` to
+  determine the number of patches in a patchwork (#293)
 
 # patchwork 1.1.2
 

diff --git a/R/plot_patchwork.R b/R/plot_patchwork.R
@@ -52,6 +52,12 @@ print.patchwork <- function(x, newpage = is.null(vp), vp = NULL, ...) {
 #' @export
 plot.patchwork <- print.patchwork
 #' @export
+length.patchwork <- function(x) {
+  length(x$patches$plots) + !is_empty(x)
+}
+#' @export
+names.patchwork <- function(x) NULL
+#' @export
 `[[.patchwork` <- function(x, ..., exact = TRUE) {
   ind <- ..1
   if (!is.numeric(ind)) {