Commit d4e24457 authored by svolant's avatar svolant
Browse files

correction bug progress file

parent 7f7ba4a5
......@@ -926,14 +926,14 @@ shinyServer(function(input, output,session) {
## Timer for the gauge
Timer <- reactiveTimer(5000)
Timer <- reactiveTimer(20000)
## Check masque progress
observe({
Timer()
# values$num = isolate(values$num)*5
progress_file = paste(curdir,"www","masque","doing",paste(basename(file_path_sans_ext(json_name)),".txt",sep=""),sep= .Platform$file.sep)
progress_file = paste(curdir,"www","masque","doing",paste(basename(file_path_sans_ext(json_name)),"_progress",".txt",sep=""),sep= .Platform$file.sep)
if(file.exists(progress_file))
{
pf = read_lines(progress_file)
......
......@@ -326,7 +326,7 @@ body <- dashboardBody(
column(width=12,
shinyDirButton("dir", "Select a directory", "Upload",buttonType = "primary"),
HTML("&nbsp;"),
actionButton("LoadFiles",'Load',icon=icon("refresh"))
actionButton("LoadFiles",'Load',icon=icon("play"))
),
conditionalPanel(condition="input.LoadFiles>=1",
br(),
......
Supports Markdown
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