R/rsPlotPng.R

In jrminter/rEDS: Process X-ray EDS spectra

#' rsPlotPng
#'
#' A convenience function to plot a function to a png file from
#' R studio after plotting to the screen
#' The function creates a new device, plots, and then restores the
#' old device.
#'
#' @param pltFn A function to generate the plot.
#'
#' @param strPath The path for the file
#'
#' @param width The width in inches, defaults to 7.5
#'
#' @param height The height in inches, defaults to 5
#'
#' @param pts The point size to use. Defaults to 16
#'
#' @param dpi The dots per inch for the png. Defaults to 100
#'
#' @keywords keywords
#'
#' @export
rsPlotPng <- function(pltFn, strPath, width=7.5, height=5, pts=16, dpi=100){
  Sys.sleep(0.1)
  old <- dev.cur()
  dev.next()
  if(file.exists(strPath)) {
    file.remove(strPath)
    Sys.sleep(2.0)
  }
  png(filename=strPath, width=width*dpi, height=height*dpi, pointsize=pts)
  pltFn
  dev.off()
  dev.set(old)
}