Make a multipage pdf with ggplot

multipage_pdf.R

#' @param list_of_plots plots to save, one per page
#' @param path path to output pdf
#' @param ... additional arguments to `ggplot2::ggsave()`
save_multipage_pdf <- function(list_of_plots, path, ...) {
  # path must end with .pdf
  stopifnot(grepl("\\.pdf$", path))
  ggplot2::ggsave(
    path,
    gridExtra::marrangeGrob(list_of_plots, ncol = 1, nrow = 1)
    ...
  )
}