Plot every since ggplot2 plot

plot-it-all.R

library(ggplot2)
directory <- "~/Desktop/dataviz/"
fs::dir_create(directory)
print.ggplot <- function(x, newpage = is.null(vp), vp = NULL, ...) {
  set_last_plot(x)
  if (newpage) grid::grid.newpage()

  # Record dependency on 'ggplot2' on the display list
  # (AFTER grid.newpage())
  grDevices::recordGraphics(
    requireNamespace("ggplot2", quietly = TRUE),
    list(),
    getNamespace("ggplot2")
  )

  data <- ggplot_build(x)

  gtable <- ggplot_gtable(data)
  if (is.null(vp)) {
    grid::grid.draw(gtable)
  } else {
    if (is.character(vp)) seekViewport(vp) else pushViewport(vp)
    grid::grid.draw(gtable)
    upViewport()
  }

  ggsave(paste0(directory, Sys.time(), ".png"), plot = x)
  invisible(x)
}