R/save_plot.R

In seblammers/slx: A Personal Collection of Functions

save_plot <- function(
  path,
  width = 10,
  height = 6,
  svg = FALSE) {
  # helper function to save the most recent
  # ggplot as pdf and as png with reasonable defaults

  # input: path like this
  #   here("plots", "plotname")

  # output: a pdf and a png with the {plotname}
  #         in the specified folder {plots}

  # optionally you can set
  #   svg to TRUE and save as a svg
  #   set other width and height if your plot needs to be bigger
  #   or as special dimensions

  # save as pdf
  ggsave(glue::glue("{path}.pdf"),
         width = width,
         height = height,
         device = cairo_pdf)

  # convert to png
  pdftools::pdf_convert(
    pdf = glue::glue("{path}.pdf"),
    format = "png",
    dpi = 250,
    filenames = glue::glue("{path}.png")
  )

  # optionally also save as svg
  if (svg) {
    ggsave(glue::glue("{path}.svg"),
           width = width,
           height = height)
  }
}