Strip version in .parseLinkingTo (#145)

kevinushey · kevinushey · commit ac58257c25b7 · 2014-07-14T19:17:05.000-07:00
diff --git a/ChangeLog b/ChangeLog
@@ -5,6 +5,10 @@
         * inst/include/Rcpp/vector/Matrix.h: Idem
         * inst/include/Rcpp/vector/DimNameProxy.h: Idem
 
+2014-07-09  Kevin Ushey  <kevinushey@gmail.com>
+
+        * R/Attributes.R: Strip version in .parseLinkingTo
+
 2014-07-12  Dirk Eddelbuettel  <edd@debian.org>
 
         * inst/include/Rcpp/generated/InternalFunction__ctors.h: Regenerated
diff --git a/R/Attributes.R b/R/Attributes.R
@@ -865,7 +865,8 @@ sourceCppFunction <- function(func, isVoid, dll, symbol) {
         return (character())
 
     linkingTo <- strsplit(linkingTo, "\\s*\\,")[[1]]
-    gsub("\\s", "", linkingTo)
+    result <- gsub("\\s", "", linkingTo)
+    gsub("\\(.*", "", result)
 }
 
 # show diagnostics for failed builds

Original file line number	Diff line number	Diff line change
`@@ -865,7 +865,8 @@ sourceCppFunction <- function(func, isVoid, dll, symbol) {`
`865`	`865`	`return (character())`
`866`	`866`
`867`	`867`	`linkingTo <- strsplit(linkingTo, "\\s*\\,")[[1]]`
`868`		`- gsub("\\s", "", linkingTo)`
	`868`	`+ result <- gsub("\\s", "", linkingTo)`
	`869`	`+ gsub("\\(.*", "", result)`
`869`	`870`	`}`
`870`	`871`
`871`	`872`	`# show diagnostics for failed builds`