add option to change directory prior to check in check.r

ChangeLog

@@ -1,3 +1,7 @@
+2015-01-18  Dirk Eddelbuettel  <[email protected]>
+
+	* examples/check.r: Add --setwd dir option to change directories
+
 2015-01-17  Dirk Eddelbuettel  <[email protected]>
 
 	* examples/check.r: Add a script which wrap R CMD check; with

examples/check.r

@@ -10,12 +10,13 @@
 suppressMessages(library(docopt))       # we need docopt (>= 0.3) as on CRAN
 
 ## configuration for docopt
-doc <- "Usage: check.r [-h] [--as-cran] [--repo REPO] [--install-deps] [--library LIB] [TARGZ ...]
+doc <- "Usage: check.r [-h] [--as-cran] [--repo REPO] [--install-deps] [--library LIB] [--setwd DIR] [TARGZ ...]
 
 -a --as-cran        customization similar to CRAN's incoming [default: FALSE]
 -r --repo REPO      repository to use, or NULL for file [default: http://cran.rstudio.com]
 -i --install-deps   also install packages along with their dependencies [default: FALSE]
 -l --library LIB    when installing use this library [default: /usr/local/lib/R/site-library]
+-s --setwd DIR      change to this directoru before undertaking the test [default: ]
 -h --help           show this help text"
 
 ## docopt parsing
@@ -48,5 +49,8 @@ installArg <- function(p, lib, rep) {
 ## if dependencies are to be installed first:
 if (opt$`install-deps`) sapply(opt$TARGZ, installArg, opt$lib, opt$repo)
 
+## change directory if a target directory was given
+if (opt$setwd != "") setwd(opt$setwd)
+
 ## installation given selected options and arguments
 sapply(opt$TARGZ, checkArg, args)