Debug (remove running file when workflow is over)

main.R

@@ -986,12 +986,14 @@ generate_app <- function() {
   res <- res + '\t\t\t\toutUI = tags$iframe(src=paste0("/results/report.html"),width="100%", height="900px")\n'
   res <- res + '\t\t\t\toutput$report_html = renderUI(outUI)\n'
   res <- res + '\t\t\t\tfile.remove(paste0(input$results_dir,"/logs/workflow_end.ok"))\n'
+  res <- res + '\t\t\t\tfile.remove(paste0(input$results_dir,"/logs/workflow.running"))\n'
   res <- res + '\t\t\t}\n'
   res <- res + '\t\t\telse if (file.exists(paste0(isolate(input$results_dir),"/logs/workflow_end.error"))){\n'
   res <- res + '\t\t\t\trv$running = F\n'
   res <- res + '\t\t\t\ttoggle_inputs(reactiveValuesToList(input),T,F)\n'
   res <- res + '\t\t\t\toutput$report_html = renderUI(HTML(paste(readLines(paste0(input$results_dir,"/logs/workflow_end.error"),warn=F), collapse = "<br/>")))\n'
   res <- res + '\t\t\t\tfile.remove(paste0(input$results_dir,"/logs/workflow_end.error"))\n'
+  res <- res + '\t\t\t\tfile.remove(paste0(input$results_dir,"/logs/workflow.running"))\n'
   res <- res + '\t\t\t}\n'
   res <- res + '\t\t\tshinyjs::runjs(\n'
   res <- res + '\t\t\t\t"var objDiv = document.getElementById(\'run_out\'); objDiv.scrollTop = objDiv.scrollHeight;"\n'