Commit dc32eefd authored by mmassaviol's avatar mmassaviol
Browse files

Add multiqc rerun possibility

parent d5f6201c
...@@ -567,6 +567,7 @@ generate_pages_server <- function() { ...@@ -567,6 +567,7 @@ generate_pages_server <- function() {
res <- res + '\t\treturn("")\n' res <- res + '\t\treturn("")\n'
res <- res + '\t}\n' res <- res + '\t}\n'
res <- res + '\telse if (input$force_from=="all"){ return("--forcerun all") }\n' res <- res + '\telse if (input$force_from=="all"){ return("--forcerun all") }\n'
res <- res + '\telse if (input$force_from=="multiqc"){ return("--forcerun multiqc") }\n'
res <- res + '\telse {\n' res <- res + '\telse {\n'
res <- res + '\t\tparams = yaml.load_file(paste0(input$results_dir,"/params.yml"), handlers=list("float#fix"=function(x){ format(x,scientific=F)}))\n' res <- res + '\t\tparams = yaml.load_file(paste0(input$results_dir,"/params.yml"), handlers=list("float#fix"=function(x){ format(x,scientific=F)}))\n'
res <- res + '\t\toutputs = params[["outputs"]]\n' res <- res + '\t\toutputs = params[["outputs"]]\n'
...@@ -812,6 +813,7 @@ generate_menu <- function() { ...@@ -812,6 +813,7 @@ generate_menu <- function() {
for(step in APP$pages[2:length(APP$pages)]){ # all steps but remove global_params page for(step in APP$pages[2:length(APP$pages)]){ # all steps but remove global_params page
choices <- choices + ",'" + step$label + "'='" + step$name + "'" choices <- choices + ",'" + step$label + "'='" + step$name + "'"
} }
choices <- choices + ",'MultiQC'='multiqc'"
res <- res + 'selectInput("force_from", label = "Start again from a step : ", selected = "none", choices = '+choices+')),' res <- res + 'selectInput("force_from", label = "Start again from a step : ", selected = "none", choices = '+choices+')),'
# #
......
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