correct call

eddelbuettel · eddelbuettel · commit b35f1a844d42 · 2019-04-26T06:12:50.000-05:00
diff --git a/R/tools.R b/R/tools.R
@@ -70,6 +70,6 @@ asBuildPath <- function(path) {
 ##' \code{\link{Rcpp.package.skeleton}}
 ##' @examples getRcppVersion()
 getRcppVersion <- function(devel = FALSE) {
-    rcpp <- .Call("getRcppVersionStrings", package="Rcpp")
+    rcpp <- .Call("getRcppVersionStrings", PACKAGE="Rcpp")
     package_version(rcpp[if(devel) 2 else 1])
 }

Original file line number	Diff line number	Diff line change
`@@ -70,6 +70,6 @@ asBuildPath <- function(path) {`
`70`	`70`	`##' \code{\link{Rcpp.package.skeleton}}`
`71`	`71`	`##' @examples getRcppVersion()`
`72`	`72`	`getRcppVersion <- function(devel = FALSE) {`
`73`		`- rcpp <- .Call("getRcppVersionStrings", package="Rcpp")`
	`73`	`+ rcpp <- .Call("getRcppVersionStrings", PACKAGE="Rcpp")`
`74`	`74`	`package_version(rcpp[if(devel) 2 else 1])`
`75`	`75`	`}`