#!/usr/bin/env Rscript
print('R Argument Test')

cmd <- paste(commandArgs(), collapse=" ")
cat("How R was invoked:\n");
cat(cmd, "\n")

args <- commandArgs(trailingOnly = TRUE)
cat(c('Command Line Arguments supplied: ', args))