Commit da09680d authored by mmassaviol's avatar mmassaviol
Browse files

Debug (remove running file when workflow is over)

parent e0426883
......@@ -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'
......
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