R/export.R

In jedgroev/makekml: kml including heading

#' export 
#'
#' export figures in the required file format (png,tif,pdf)

#' @param func function that generates a plot
#' @param file output figure file name 
#' @param res2 resolution
#' @param ratio ratio between with and height
#' @param type pdf, png or tif
#' @keywords export, png, tif, pdf
#' @export

#' @examples 
#' EXAMPLE 1
#' x <- 1:10
#' y <- 1:10
#' export(func=plot(x,y),'test1',type='pdf')
#' export(func=plot(x,y),'test1',type='tif')
#' export(func=plot(x,y),'test1',type='png')
#'
#' EXAMPLE 2
#' plot_function <- function {
#' par(mfrow=c(1,2))
#' plot(x,y) 
#' boxplot(x)
#' }
#' export(func=plot_function(),'test2',type='pdf')
#' export(func=plot_function(),'test2',type='tif')
#' export(func=plot_function(),'test2',type='png') 

export <- function(func, file, res2 = 300, ratio=1.5, type='pdf'){
# creates figures in pdf, png and tif at same dimensions.
# func = is the function to be called 
# file = filename
# res2 = resolution
# ratio = ratio with length
# type = pdf, png, tif
dims=480/72*res2
  # PNG
  if(type=='png'){
  png(paste0(file,'.png'),res=res2,width=dims*ratio,height=dims)
  func
  dev.off()}
  # TIF 
  if(type=='tif'){
  tiff(paste0(file,'.tif'),res=res2,width=dims*ratio,height=dims)
  func
  dev.off()}
  # PDF  
  if(type=='pdf'){
  pdf(paste0(file,'.pdf'),width=(dims/res2)*ratio, height=dims/res2)
  func
  dev.off()}

}