Add multiqc rerun possibility

main.R

@@ -567,6 +567,7 @@ generate_pages_server <- function() {
   res <- res + '\t\treturn("")\n'
   res <- res + '\t}\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 + '\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'
@@ -812,6 +813,7 @@ generate_menu <- function() {
   for(step in APP$pages[2:length(APP$pages)]){ # all steps but remove global_params page
     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+')),'
   
   #