make generate_makevars_sources.R slightly more portable (#73)

Author: vandenman

configure

@@ -5,7 +5,7 @@ RCPP_PARALLEL_CPPFLAGS=`"${R_HOME}/bin/Rscript" -e "cat(RcppParallel::CxxFlags()
 RCPP_PARALLEL_LIBS=`"${R_HOME}/bin/Rscript" -e "cat(RcppParallel::LdFlags())"`
 
 # Generate sources.mk using R
-"${R_HOME}/bin/Rscript" R/generate_makevars_sources.R > src/sources.mk
+"${R_HOME}/bin/Rscript" inst/generate_makevars_sources.R > src/sources.mk
 
 # Substitute into Makevars
 sed -e "s|@RCPP_PARALLEL_CPPFLAGS@|${RCPP_PARALLEL_CPPFLAGS}|" \

configure.win

@@ -5,7 +5,7 @@ RCPP_PARALLEL_CPPFLAGS=`"${R_HOME}/bin${R_ARCH_BIN}/Rscript.exe" -e "cat(RcppPar
 RCPP_PARALLEL_LIBS=`"${R_HOME}/bin${R_ARCH_BIN}/Rscript.exe" -e "cat(RcppParallel::LdFlags())"`
 
 # Generate sources.mk using R
-"${R_HOME}/bin/Rscript" R/generate_makevars_sources.R > src/sources.mk
+"${R_HOME}/bin/Rscript" inst/generate_makevars_sources.R > src/sources.mk
 
 # Substitute into Makevars.win
 sed -e "s|@RCPP_PARALLEL_CPPFLAGS@|${RCPP_PARALLEL_CPPFLAGS}|" \

R/generate_makevars_sources.R inst/generate_makevars_sources.RR/generate_makevars_sources.R renamed to inst/generate_makevars_sources.R

@@ -5,10 +5,10 @@ cpp <- list.files(
   full.names = TRUE
 )
 
-# strip leading "src/"
-cpp <- sub("^src/", "", cpp)
+# strip leading "src/" (MacOs/ Linux) or leading "src\\" (Windows)
+cpp <- sub("^src[\\\\/]", "", cpp)
 
-con <- file("src/sources.mk", open = "w")
+con <- file(file.path("src", "sources.mk"), open = "w")
 
 writeLines(c(
   "# ------------------------------------------------------------------",