R/to_pdf.R

#' 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))
}
RemkoDuursma/plover documentation built on May 9, 2019, 9:39 a.m.