Tweaks.

git-svn-id: https://svn.r-project.org/R/trunk@88318 00db46b3-68df-0310-9c12-caf00c1e9a41

Author: hornik

src/library/tools/R/CRANtools.R

@@ -757,7 +757,7 @@ CRAN_package_check_URL <- function(p)
             p)
 
 BioC_package_db <-
-function()
+function(remap = TRUE)
 {
     urls <- .get_standard_repository_URLs()
     urls <- urls[startsWith(names(urls), "BioC")]
@@ -767,8 +767,18 @@ function()
                        on.exit(close(con))
                        read.dcf(con)
                    })
-    Reduce(function(u, v) merge(u, v, all = TRUE),
-           lapply(info,
-                  as.data.frame,
-                  stringsAsFactors = FALSE))
+    db <- Reduce(function(u, v) merge(u, v, all = TRUE),
+                 lapply(info,
+                        as.data.frame,
+                        stringsAsFactors = FALSE))
+    if(remap) {
+        ## Map BioC reverse dependency names to CRAN ones.
+        biocrevnames <- c(dependsOnMe = "Reverse depends",
+                          importsMe = "Reverse imports",
+                          linksToMe = "Reverse linking to",
+                          suggestsMe = "Reverse suggests")
+        pos <- match(colnames(db), names(biocrevnames), nomatch = 0L)
+        colnames(db)[pos > 0] <- biocrevnames[pos]
+    }
+    db
 }