R/export_pdf.R

In nicohuttmann/pOmics: Framework for proteomics data analysis

#' Exports plot to pdf
#'
#' @param p plot
#' @param file filename
#' @param width width
#' @param height height
#' @param open open pdf after export
#'
#' @return
#' @export
#'
#'
export_pdf <- function(p, file = "test.pdf", width = 4, height = 4, open = T) {

  file <- gsub(pattern = ":", replacement = "", x = file)

  if (substr(file, start = 1, stop = 2) == "C\\") {

    file <- paste0("C:\\", substring(file, first = 3))

  }

  #system('taskkill /f /im AcroRd32.exe')

  pdf(file = file, width = width, height = height)

  print(p)

  dev.off()

  if (open)
    system(paste0('open "', file, '"'))

}


#' Exports plot to tiff
#'
#' @param p plot
#' @param file filename
#' @param width width
#' @param height height
#' @param open open pdf after export
#'
#' @return
#' @export
#'
#'
export_tiff <- function(p, file = "test.tiff", width = 4, height = 4, open = T) {

  file <- gsub(pattern = ":", replacement = "", x = file)

  if (substr(file, start = 1, stop = 2) == "C\\") {

    file <- paste0("C:\\", substring(file, first = 3))

  }

  #system('taskkill /f /im AcroRd32.exe')

  tiff(filename = file, width = width, height = height, units = "in", res = 300)

  print(p)

  dev.off()

  if (open)
    system(paste0('open "', file, '"'))

}


#' Exports plot to svg
#'
#' @param p plot
#' @param file filename
#' @param width width
#' @param height height
#' @param open open pdf after export
#'
#' @return
#' @export
#'
#'
export_svg <- function(p, file = "test.svg", width = 4, height = 4, open = T) {

  file <- gsub(pattern = ":", replacement = "", x = file)

  if (substr(file, start = 1, stop = 2) == "C\\") {

    file <- paste0("C:\\", substring(file, first = 3))

  }

  #system('taskkill /f /im AcroRd32.exe')

  svg(filename = file, width = width, height = height)

  print(p)

  dev.off()

  if (open)
    system(paste0('open "', file, '"'))

}