RcppCore
diff --git a/‎tools/config.R
Copy file name to clipboardExpand all lines: tools/config.R
+9Lines changed: 9 additions & 0 deletions b/‎tools/config.R
Copy file name to clipboardExpand all lines: tools/config.R
+9Lines changed: 9 additions & 0 deletions
@@ -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' ..."