From a56ba7026a084918fea8d7000555e6f406589ff2 Mon Sep 17 00:00:00 2001
From: edd <edd@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>
Date: Sun, 6 Jun 2010 17:57:56 +0000
Subject: [PATCH] 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
---
 trunk/R/rdep.R | 24 ++++++++++++------------
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/trunk/R/rdep.R b/trunk/R/rdep.R
index bf2fa38..8efaf45 100644
--- 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)
-- 
2.39.2