Debug

main.R

@@ -965,7 +965,6 @@ generate_app <- function() {
   # Observe if the workflow is running
   res <- res + '\tobserve({\n'
   res <- res + '\t\trv$timer()\n'
-  res <- res + '\t\tif (!file.exists(paste0(input$results_dir,"/logs/workflow.running"))){rv$running = F}\n'
   res <- res + '\t\tif (isolate(rv$running)){\n'
   res <- res + '\t\t\tif (file.exists(paste0(input$results_dir,"/logs/runlog.txt"))){\n'
   res <- res + '\t\t\t\trv$textstream <- paste(readLines(paste0(input$results_dir,"/logs/runlog.txt"),warn=F), collapse = "<br/>")\n'
@@ -992,6 +991,7 @@ generate_app <- function() {
   #res <- res + '\t\t\t\t"var objDiv = document.getElementById(\'run_out\'); objDiv.scrollTop = objDiv.scrollHeight;"\n'
   #res <- res + '\t\t\t)\n'
   res <- res + '\t\t}\n'
+  res <- res + '\t\tif (!file.exists(paste0(input$results_dir,"/logs/workflow.running"))){rv$running = F}\n'
   res <- res + '\t})\n'
   res <- res + '\toutput$run_out <- renderUI({\n'
   res <- res + '\t\tHTML(rv$textstream)\n'