Commit fb982760 authored by mmassaviol's avatar mmassaviol
Browse files

Debug

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