park another bundle check in the closet

git-svn-id: svn://svn.r-forge.r-project.org/svnroot/cran2deb@309 edb9625f-4e0d-4859-8d74-9fd3b1da38cb

diff --git a/trunk/R/rdep.R b/trunk/R/rdep.R
index bf2fa384002345027f180cdea84aacee6489e9d0..8efaf454a1ff152254b8cc901f65a3eb44c0a61c 100644 (file)
--- a/trunk/R/rdep.R
+++ b/trunk/R/rdep.R
@@ -20,18 +20,18 @@ r_bundle_contains <- function(bundlename) {
 }
 
 r_requiring <- function(names) {
-    for (name in names) {
-        if (!(name %in% base_pkgs) && !(name %in% rownames(available))) {
-            bundle <- r_bundle_of(name)
-            if (!is.null(bundle)) {
-                name = bundle
-                names <- c(names,bundle)
-            }
-        }
-        if (name %in% rownames(available) && !is.na(available[name,'Contains'])) {
-            names <- c(names,r_bundle_contains(name))
-        }
-    }
+    #for (name in names) {
+    #    if (!(name %in% base_pkgs) && !(name %in% rownames(available))) {
+    #        bundle <- r_bundle_of(name)
+    #        if (!is.null(bundle)) {
+    #            name = bundle
+    #            names <- c(names,bundle)
+    #        }
+    #    }
+    #    if (name %in% rownames(available) && !is.na(available[name,'Contains'])) {
+    #        names <- c(names,r_bundle_contains(name))
+    #    }
+    #}
     # approximately prune first into a smaller availability
     candidates <- rownames(available)[sapply(rownames(available)
                                             ,function(name)