Fix #295

NAMESPACE

@@ -80,6 +80,7 @@ export(set_dim)
 export(wrap_elements)
 export(wrap_ggplot_grob)
 export(wrap_plots)
+import(rlang)
 importFrom(ggplot2,aes)
 importFrom(ggplot2,element_blank)
 importFrom(ggplot2,element_grob)

NEWS.md

@@ -15,6 +15,8 @@
 * 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)
+* Expressions and calls can now be used as plot annotations in the same way as
+  they can be used for titles in ggplot2 (#295)
 
 # patchwork 1.1.2
 

R/aaa.R

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

R/patchwork-package.r

@@ -32,4 +32,9 @@
 #'   geom_boxplot(aes(gear, disp, group = gear))
 #'
 #' @keywords internal
-'_PACKAGE'
+"_PACKAGE"
+
+## usethis namespace: start
+#' @import rlang
+## usethis namespace: end
+NULL

R/plot_annotation.R

@@ -139,7 +139,7 @@ recurse_tags <- function(x, levels, prefix, suffix, sep, offset = 1) {
 #' @importFrom grid unit
 #' @importFrom utils tail
 annotate_table <- function(table, annotation) {
-  p <- ggplot() + annotation$theme + do.call(labs, annotation[c('title', 'subtitle', 'caption')])
+  p <- ggplot() + annotation$theme + exec(labs, !!!annotation[c('title', 'subtitle', 'caption')])
   p <- ggplotGrob(p)
   max_z <- max(table$layout$z)
   fix_respect <- is.matrix(table$respect)