diff --git a/server/opt_home.R b/server/opt_home.R index 7aaf18adf96806879775f42cd5fafd4d4bf6195f..b04da8295fd5d6d84d443ff3e0c7d812deb94b72 100755 --- a/server/opt_home.R +++ b/server/opt_home.R @@ -351,20 +351,13 @@ createBioconductorPackage <- function(result) { } createPathBiocontainer <- function(result) { - - - print("PATH") - + if(input$containerType == "singularity") { selectBioTool <- input$selectedBiocontainer for (tool in selectBioTool){ - - print(tool) - + to <- getInstallToolEnvBioContainer(tool, input$containerType) - - print(to) - + if(is.character(to)) { result <- paste0(result, "\n\t", to) } @@ -385,8 +378,6 @@ createPathBiocontainer <- function(result) { } - print(result) - return(result) }