#! /usr/bin/Rscript --vanilla

suppressPackageStartupMessages(library("roxygen2"))
suppressPackageStartupMessages(library("optparse"))

# specify our desired options in a list
# by default OptionParser will add an help option equivalent to
# make_option(c("-h", "--help"), action="store_true", default=FALSE,
# help="Show this help message and exit")

option_list <- list(
		make_option(c("-v", "--verbose"), action="store_true", default=TRUE,
			help="Print extra output [default]"),
		make_option(c("-q", "--quietly"), action="store_false",
			dest="verbose", help="Print little output"),
		make_option(c("-c", "--clean"), action="store_true", default=FALSE,
		    dest="clean", help="Clean old Rd files first? (requires devtools)"),
		make_option(c("-p", "--package.dir"), type="character", default=".",
			dest='path',
			help="path to package [default %default]",
			metavar="path")
		)
# get command line options, if help option encountered print help and exit,
# otherwise if options not found on command line then set defaults,

opt <- parse_args(OptionParser(option_list=option_list))

# print some progress messages to stderr if "quietly" wasn't requested
	if ( opt$verbose ) {
		write(paste("Processing package", opt$path, "...\n"), stderr())
	}

if (FALSE & require(devtools)) {
	suppressPackageStartupMessages(library("devtools"))
	document(opt$path, clean=opt$clean)
} else {
	roxygenize(opt$path)  # ,clean=opt$clean)
}

cat("\n")
