R/savepdf.R

In sdaza/sdazar: My functions.

#' @title Save plots.
#' @description Save plots.
#' @param file Name of the pdf file to be exported.
#' @examples
#' savepdf("myplot")
#' plot(x)
#' dev.off()
savepdf <- function(file, width=16, height=10)
{
  fname <- paste0(file, ".pdf")
  pdf(fname, width=width/2.54, height=height/2.54,
      pointsize=10)
  par(mgp=c(2.2,0.45,0), tcl=-0.4, mar=c(3.3,3.6,1.1,1.1))
}