Get alpackages

R/memo_misc.R

@@ -34,10 +34,20 @@ NULL
     if (bioc_version != "release" && utils::compareVersion(bioc_version, "2.0") == -1) {
         stop("Bioconductor versions < 2.0 are not supported.", call. = FALSE)
     }
-    con <- url(paste0("http://bioconductor.org/packages/", bioc_version, "/bioc/VIEWS"))
-    pkgs <- read.dcf(con)
-    close(con)
-    as.data.frame(pkgs)
+    suffixes <- c("bioc", "data/annotation", "data/experiment", "workflow")
+    output <- data.frame()
+    for (suffix in suffixes) {
+        tryCatch({
+            con <- url(paste0("http://bioconductor.org/packages/", bioc_version, "/", suffix, "/VIEWS"))
+            on.exit(close(con))
+            raw_bioc_pkgs_metadata <- suppressWarnings(read.dcf(con))
+            bioc_pkgs_metadata <- as.data.frame(raw_bioc_pkgs_metadata)[, c("Package", "Version", "Depends","LinkingTo","Imports","Suggests","Enhances")]
+            output <- rbind(output, bioc_pkgs_metadata)
+        }, error = function(e) {
+            #pass
+        })
+    }
+    output
 }
 
 .memo_search_bioc <- memoise::memoise(.bioc_package_history, cache = cachem::cache_mem(max_age = 60 * 60))