R/save_plot2.R

In pearsonplc/vispear: A package facilitating data visualisation using Pearson branding

#' Function for saving a plot in pdf and png format at once.
#'
#' @export
#' @param name Plot name we want to export.
#' @param file File name or path. Default filename: "plot"
#' @param width Width of exported plot. Default value: 13 inches
#' @param height Height of exported plot. Default value: 8 inches
#' @param dpi Default value: dpi = 150


save_plot2 <- function(name,
                       file = "plot",
                       width = 13,
                       height = 8,
                       dpi = 150) {


  fonts_save()

  ggplot2::ggsave(
    paste0(file, ".png"), name, width = width,
    height = height, dpi = dpi)

  ggplot2::ggsave(
    paste0(file, ".pdf"), name, width = width,
    height = height, dpi = dpi
  )

  pdf_file <- paste0(file, ".pdf")
  extrafont::embed_fonts(pdf_file)

  invisible(NULL)

}