Protect path the binary from possible spaces (closes #1234)

eddelbuettel · eddelbuettel · commit 399c4581c45f · 2022-10-12T11:23:02.000-05:00
diff --git a/ChangeLog b/ChangeLog
@@ -1,3 +1,7 @@
+2022-10-12  Dirk Eddelbuettel  <edd@debian.org>
+
+	* R/Attributes.R (sourceCpp): Protect path to binary from spaces
+
 2022-10-06  Dirk Eddelbuettel  <edd@debian.org>
 
 	* DESCRIPTION (Version, Date): Roll minor version
diff --git a/R/Attributes.R b/R/Attributes.R
@@ -129,7 +129,7 @@ sourceCpp <- function(file = "",
         }                                                       # #nocov end
 
         # grab components we need to build command
-        r <- paste(R.home("bin"), "R", sep = .Platform$file.sep)
+        r <- normalizePath(file.path(R.home("bin"), "R"), winslash = "/", mustWork = FALSE)
         lib  <- context$dynlibFilename
         deps <- context$cppDependencySourcePaths
         src  <- context$cppSourceFilename

-Original file line number
+Diff line change
@@ @@ -1,3 +1,7 @@ @@
 +2022-10-12  Dirk Eddelbuettel  <[email protected]>
++
 +	* R/Attributes.R (sourceCpp): Protect path to binary from spaces
++
 -10-06  Dirk Eddelbuettel  <[email protected]>
 	* DESCRIPTION (Version, Date): Roll minor version