R language script template

script.R

#!/usr/bin/env Rscript

if(Sys.getenv("VIRTUAL_ENV") == ""){ stop("An active virtualenv is required") }
source(file.path(Sys.getenv('VIRTUAL_ENV'), 'bin', 'rvenv'))

suppressPackageStartupMessages(library(argparse, quietly = TRUE))
suppressPackageStartupMessages(library(lattice, quietly = TRUE))
suppressPackageStartupMessages(library(latticeExtra, quietly = TRUE))

main <- function(arguments){
  parser <- ArgumentParser()
  parser$add_argument('infile')
  parser$add_argument('-o', '--outfile')
  args <- parser$parse_args(arguments)

}

main(commandArgs(trailingOnly=TRUE))
## invisible(warnings())