more idiomatic call, new minor version

Author: eddelbuettel

ChangeLog

@@ -1,3 +1,9 @@
+2019-04-26  Dirk Eddelbuettel  <[email protected]>
+
+	* DESCRIPTION (Version, Date): Roll minor version
+
+	* R/tools.R (getRcppVersion): More idiomatic code
+
 2019-04-25  Dirk Eddelbuettel  <[email protected]>
 
 	* R/tools.R (getRcppVersion): Export R (and dev) package version

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: Rcpp
 Title: Seamless R and C++ Integration
-Version: 1.0.1.2
-Date: 2019-03-20
+Version: 1.0.1.3
+Date: 2019-04-26
 Author: Dirk Eddelbuettel, Romain Francois, JJ Allaire, Kevin Ushey, Qiang Kou,
  Nathan Russell, Douglas Bates and John Chambers
 Maintainer: Dirk Eddelbuettel <[email protected]>

R/tools.R

@@ -70,9 +70,6 @@ asBuildPath <- function(path) {
 ##' \code{\link{Rcpp.package.skeleton}}
 ##' @examples getRcppVersion()
 getRcppVersion <- function(devel = FALSE) {
-    rcpp <- .Call("getRcppVersionStrings")[if(devel) 2 else 1]
-    .make_numeric_version(rcpp,
-                          TRUE,
-                          .standard_regexps()$valid_package_version,
-                          "package_version")
+    rcpp <- .Call("getRcppVersionStrings", package="Rcpp")
+    package_version(rcpp[if(devel) 2 else 1])
 }