R/write_plot.R

In jongbinjung/ggbuildr: Save Incremental Builds of Plots

.write_plot <- function(p, plotpath, ...) {
  if (is.null(plotpath)) {
    print(p)
  } else {
    message("Saving:", plotpath)
    ggsave(plotpath,
           plot = p,
           ...)
  }
}