R/to_pdf.R

In RemkoDuursma/plover: A Collection of Convenient Plotting Functions

#' Simple wrapper function to produce a PDF
#'@export
to_pdf <- function(expr, filename, ..., verbose=TRUE) {
  if(!file.exists(dirname(filename)))
    dir.create(dirname(filename), recursive=TRUE)
  if ( verbose )
    cat(sprintf("Creating %s\n", filename))
  pdf(filename, ...)
  on.exit(dev.off())
  eval.parent(substitute(expr))
}