R/save_ggplot.R

In nicohuttmann/htmnanalysis: Analysis of Omics Data

#' Saves ggplots
#'
#' @param p plot
#' @param name name of plot
#' @param res resolution
#'
#' @return
#' @export
#'
#' @importFrom ggplot2 ggsave
#'
save.ggplot <- function(p, name, res = 300) {

  if(!dir.exists("plots")) {
    dir.create("plots")
  }

  if(!hasArg(name)) {
    name <- readline("Name: ")
  }

  ggplot2::ggsave(paste0("./plots/", name, ".png"),
                  plot = p,
                  dpi = res)

}