git-svn-id: svn://svn.r-forge.r-project.org/svnroot/cran2deb@309
edb9625f-4e0d-4859-8d74-
9fd3b1da38cb
}
r_requiring <- function(names) {
}
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)
# approximately prune first into a smaller availability
candidates <- rownames(available)[sapply(rownames(available)
,function(name)