Commit 63d36487 authored by jlopez's avatar jlopez
Browse files

Fix other bug biocontainer tools

parent 58c7ea13
......@@ -19,7 +19,7 @@ getPackagesWithTitle <- function() {
getBioconductorPackage <- function() {
data <- yaml.load_file("container.yaml")$containers
data <- allBIOCONTAINER
size <- 0
......@@ -63,7 +63,7 @@ getBioconductorPackage <- function() {
getInstallToolPackageBioContainer <- function(tool) {
data <- yaml.load_file("container.yaml")$containers
data <- allBIOCONTAINER
size <- length(data)
......
......@@ -45,7 +45,19 @@ server <- function( input, output, session) {
allCRAN <<- as.data.frame(getPackagesWithTitle())
allBIO <<- as.data.frame(available.packages(repo = biocinstallRepos()[1])[, c("Package", "Version")])
allGITHUB <<- data.frame(Package=character(), Version=character())
allBIOCONTAINER <<- yaml.load_file("container.yaml")$containers
TMP <<- yaml.load_file("container.yaml")$containers
i = 1
j = 1
allBIOCONTAINER <<- list()
for(x in TMP) {
if(length(TMP[[i]]$install) > 0) {
allBIOCONTAINER[[j]] <<- TMP[[i]]
j = j + 1
}
i = i + 1
}
print(allBIOCONTAINER)
hide("downloadContainerFile")
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment