R/pdf_swi.R

In d-qn/swiTheme: swissinfo.ch chart themes, colours and convenience functions

##' swissinfo standard chart size pdf export 
##'
##' Simple wrapper for R's graphics device driver (i.e. pdf) to save charts in pre-defined sizes
##'
##' @rdname swi_export
##' @param \dots arguments passed on to \code{pdf}
##' @importFrom grDevices pdf 
##' @inheritParams grDevices::pdf
##' @export
##' 
pdfswi_sq <- function(file = "", width = 10, height = 10, useDingbats = FALSE, ...) {
  pdf(file, width = width, height = height, ...)
}

##' @rdname swi_export
##' @importFrom grDevices pdf 
##' @inheritParams grDevices::pdf 
##' @export
pdfswi_long <- function(file = "", width = 6, height = width * 1.25 , useDingbats = FALSE, ...) {
  pdf(file, width = width, height = height, ...)
}