Merge pull request #120 from imrehg/config-path

Set working directory for config.R correctly even if setwd is set outside

Author: kevinushey

tools/config.R

@@ -574,6 +574,15 @@ if (!interactive()) {
     args <- commandArgs(TRUE)
     type <- args[[1]]
 
+    # preserve working directory
+    owd <- getwd()
+    on.exit(setwd(owd), add = TRUE)
+
+    # switch working directory to the calling scripts's directory as set
+    # by the shell, in case the R working directory was set to something else
+    basedir <- Sys.getenv("PWD", unset = ".")
+    setwd(basedir)
+
     # report start of execution
     package <- Sys.getenv("R_PACKAGE_NAME", unset = "<unknown>")
     fmt <- "** preparing to %s package '%s' ..."