Commit 4890b7e3 authored by jlopez's avatar jlopez
Browse files

Add R 3.6.0

parent 11ecc9c8
......@@ -40,7 +40,7 @@ tabHome = fluidPage(align="left",
radioButtons("containerType", "Container type:", choices = list("Singularity" = "singularity", "Docker" = "docker"), selected = "singularity"),
br(),
#selectizeInput('rcranpackagelist', 'R CRAN:', choices = NULL, multiple=TRUE, options = list(maxItems = 30000)),
selectizeInput('rtemplate', 'R origin:', choices = c(`None` = 'none', `R from source 3.4.3` = 'source', `R from source 3.4.4` = 'source2', `R from source 3.5.0` = 'source3', `R from r-base` = 'base', `R from CRAN depo` = 'cran'), selected = "none", multiple = FALSE),
selectizeInput('rtemplate', 'R origin:', choices = c(`None` = 'none', `R from source 3.4.3` = 'source', `R from source 3.4.4` = 'source2', `R from source 3.5.0` = 'source3', `R from source 3.6.0` = 'source4', `R from r-base` = 'base', `R from CRAN depo` = 'cran'), selected = "none", multiple = FALSE),
#selectizeInput('biocontainers', 'BioContainers tools :', choices = getBioconductorPackage(), multiple = TRUE),
......
......@@ -70,6 +70,9 @@ createEnv <- function(result) {
}else if(input$rtemplate == "source3") {
Rversion = "3.5.0"
}
}else if(input$rtemplate == "source4") {
Rversion = "3.6.0"
}
if(input$containerType == "singularity") {
result <- paste(result, "%environment", sep = "\n")
......@@ -720,6 +723,8 @@ createContentFile <- function() {
Rversion = "3.4.4"
}else if(input$rtemplate == "source3") {
Rversion = "3.5.0"
} else if(input$rtemplate == "source4") {
Rversion = "3.6.0"
}
result <- createRSource(result, Rversion)
......
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