Commit e3c8ea74 authored by khalid's avatar khalid
Browse files
parents 6faff451 f4e84559
...@@ -351,20 +351,13 @@ createBioconductorPackage <- function(result) { ...@@ -351,20 +351,13 @@ createBioconductorPackage <- function(result) {
} }
createPathBiocontainer <- function(result) { createPathBiocontainer <- function(result) {
print("PATH")
if(input$containerType == "singularity") { if(input$containerType == "singularity") {
selectBioTool <- input$selectedBiocontainer selectBioTool <- input$selectedBiocontainer
for (tool in selectBioTool){ for (tool in selectBioTool){
print(tool)
to <- getInstallToolEnvBioContainer(tool, input$containerType) to <- getInstallToolEnvBioContainer(tool, input$containerType)
print(to)
if(is.character(to)) { if(is.character(to)) {
result <- paste0(result, "\n\t", to) result <- paste0(result, "\n\t", to)
} }
...@@ -385,8 +378,6 @@ createPathBiocontainer <- function(result) { ...@@ -385,8 +378,6 @@ createPathBiocontainer <- function(result) {
} }
print(result)
return(result) return(result)
} }
......
Markdown is supported
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