Remove calls to non-exported functions from the tools package

Author: jjallaire

ChangeLog

@@ -1,3 +1,7 @@
+2013-09-16 JJ Allaire <jj@rstudio.org>
+
+        * R/Attributes.R : Remove calls to non-exported functions from the tools package
+
 2013-09-16 Romain Francois <romain@r-enthusiasts.com>
 
         * include/Rcpp/internal/Exporter.h : Specific handling of containers (std::vector,

R/Attributes.R

@@ -309,13 +309,12 @@ compileAttributes <- function(pkgdir = ".", verbose = getOption("verbose")) {
     descFile <- file.path(pkgdir,"DESCRIPTION")
     if (!file.exists(descFile))
         stop("pkgdir must refer to the directory containing an R package")
-
-    pkgInfo <- tools:::.split_description(tools:::.read_description(descFile))
-    pkgname <- as.character(pkgInfo$DESCRIPTION["Package"])
-    depends <- unique(names(pkgInfo$Depends))
-    if (is.null(depends))
-        depends <- character()
-
+    pkgDesc <- read.dcf(descFile)[1,]
+    pkgname = .readPkgDescField(pkgDesc, "Package")
+    depends <- .readPkgDescField(pkgDesc, "Depends", character())
+    depends <- unique(.splitDepends(depends)) 
+    depends <- depends[depends != "R"]
+        
     # determine source directory
     srcDir <- file.path(pkgdir, "src")
     if (!file.exists(srcDir))
@@ -330,15 +329,15 @@ compileAttributes <- function(pkgdir = ".", verbose = getOption("verbose")) {
     cppFiles <- list.files(srcDir, pattern=glob2rx("*.c*"))
 
     # derive base names (will be used for modules)
-    cppFileBasenames <- tools:::file_path_sans_ext(cppFiles)
+    cppFileBasenames <- tools::file_path_sans_ext(cppFiles)
 
     # expend them to their full paths
     cppFiles <- file.path(srcDir, cppFiles)
     cppFiles <- normalizePath(cppFiles, winslash = "/")
 
     # generate the includes list based on LinkingTo. Specify plugins-only
     # because we only need as/wrap declarations
-    linkingTo <- as.character(pkgInfo$DESCRIPTION["LinkingTo"])
+    linkingTo <- .readPkgDescField(pkgDesc, "LinkingTo")
     includes <- .linkingToIncludes(linkingTo, TRUE)
 
     # if a master include file is defined for the package then include it
@@ -450,6 +449,24 @@ sourceCppFunction <- function(func, isVoid, dll, symbol) {
     }
 }
 
+# Split the depends field of a package description
+.splitDepends <- function(x) {
+    if (!length(x)) 
+        return(character())
+    x <- unlist(strsplit(x, ","))
+    x <- sub("[[:space:]]+$", "", x)
+    x <- unique(sub("^[[:space:]]*(.*)", "\\1", x))
+    sub("^([[:alnum:].]+).*$", "\\1", x)
+}
+
+# read a field from a named package description character vector
+.readPkgDescField <- function(pkgDesc, name, default = NULL) {
+    if (name %in% names(pkgDesc))
+        pkgDesc[[name]]
+    else
+        default
+}
+
 
 # Get the inline plugin for the specified package (return NULL if none found)
 .getInlinePlugin <- function(package) {

inst/NEWS.Rd

@@ -47,6 +47,7 @@
       For users, it means that for the parameters of function exported by modules, 
       we can now use references, pointers and const versions of them.
       The file \code{Module.cpp} file has an example. 
+      \item{No longer call non-exported functions from the tools package}
     }
     \item Changes in Modules:
     \itemize{