An R script template

script.R

#!/usr/bin/env Rscript

suppressPackageStartupMessages(library(lattice, quietly = TRUE))
suppressPackageStartupMessages(library(latticeExtra, quietly = TRUE))
suppressPackageStartupMessages(library(argparse, 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))