quote path as used in CxxFlags

kevinushey · kevinushey · commit 338c9e237359 · 2021-11-11T10:19:17.000-08:00
diff --git a/ChangeLog b/ChangeLog
@@ -1,3 +1,7 @@
+2021-11-11  Kevin Ushey  <kevinushey@gmail.com>
+
+	* R/RcppLdpath.R: CxxFlags() now quotes its include path
+
 2021-10-15  Travers Ching  <traversc@gmail.com>
 
 	* inst/tinytest/testRcppAttributePackage: Tests `signature` attribute
diff --git a/R/RcppLdpath.R b/R/RcppLdpath.R
@@ -52,7 +52,7 @@ RcppCxxFlags <- function(cxx0x=FALSE) {
     if (.Platform$OS.type=="windows") {
         path <- asBuildPath(path)				# #nocov
     }
-    paste("-I", path, if (cxx0x && canUseCXX0X()) " -std=c++0x" else "", sep="")
+    paste0('-I"', path, if (cxx0x && canUseCXX0X()) '" -std=c++0x' else '')
 }
 
 ## Shorter names, and call cat() directly

-Original file line number
+Diff line change
@@ @@ -1,3 +1,7 @@ @@
 +2021-11-11  Kevin Ushey  <[email protected]>
++
 +	* R/RcppLdpath.R: CxxFlags() now quotes its include path
++
 -10-15  Travers Ching  <[email protected]>
 	* inst/tinytest/testRcppAttributePackage: Tests `signature` attribute
Original file line number	Diff line number	Diff line change
`@@ -52,7 +52,7 @@ RcppCxxFlags <- function(cxx0x=FALSE) {`
`52`	`52`	`if (.Platform$OS.type=="windows") {`
`53`	`53`	`path <- asBuildPath(path) # #nocov`
`54`	`54`	`}`
`55`		`- paste("-I", path, if (cxx0x && canUseCXX0X()) " -std=c++0x" else "", sep="")`
	`55`	`+ paste0('-I"', path, if (cxx0x && canUseCXX0X()) '" -std=c++0x' else '')`
`56`	`56`	`}`
`57`	`57`
`58`	`58`	`## Shorter names, and call cat() directly`