ensure Makevars has Unix newlines

Author: kevinushey

cleanup

@@ -1,3 +1,3 @@
 #!/usr/bin/env sh
 : "${R_HOME=`R RHOME`}"
-"${R_HOME}/bin/Rscript" tools/config.R cleanup
+"${R_HOME}/bin/Rscript" tools/config.R cleanup "$@"

cleanup.win

@@ -1,2 +1,2 @@
 #!/usr/bin/env sh
-"${R_HOME}/bin${R_ARCH_BIN}/Rscript.exe" tools/config.R cleanup
+"${R_HOME}/bin${R_ARCH_BIN}/Rscript.exe" tools/config.R cleanup "$@"

configure

@@ -1,3 +1,3 @@
 #!/usr/bin/env sh
 : "${R_HOME=`R RHOME`}"
-"${R_HOME}/bin/Rscript" tools/config.R configure
+"${R_HOME}/bin/Rscript" tools/config.R configure "$@"

configure.win

@@ -1,2 +1,2 @@
 #!/usr/bin/env sh
-"${R_HOME}/bin${R_ARCH_BIN}/Rscript.exe" tools/config.R configure
+"${R_HOME}/bin${R_ARCH_BIN}/Rscript.exe" tools/config.R configure "$@"

tools/config.R

@@ -77,16 +77,26 @@ configure_file <- function(
     rhs = "@",
     verbose = configure_verbose())
 {
+    # read source file
     contents <- readLines(source, warn = FALSE)
+
+    # replace defined variables
     enumerate(config, function(key, val) {
         needle <- paste(lhs, key, rhs, sep = "")
         replacement <- val
         contents <<- gsub(needle, replacement, contents, fixed = TRUE)
     })
 
     ensure_directory(dirname(target))
-    writeLines(contents, con = target)
 
+    # write configured file to target location
+    # prefer unix newlines for Makevars
+    mode <- if (target %in% "Makevars") "wb" else "w"
+    conn <- file(target, open = mode)
+    on.exit(close(conn), add = TRUE)
+    writeLines(contents, con = conn)
+
+    # copy over source permissions
     info <- file.info(source)
     Sys.chmod(target, mode = info$mode)
 
@@ -580,8 +590,9 @@ if (!interactive()) {
 
     # 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)
+    basedir <- Sys.getenv("PWD", unset = NA)
+    if (!is.na(basedir))
+        setwd(basedir)
 
     # report start of execution
     package <- Sys.getenv("R_PACKAGE_NAME", unset = "<unknown>")