Commit 3163642e authored by svolant's avatar svolant
Browse files

modif project status

parent c774dd66
......@@ -25,7 +25,7 @@ Project_box_result <- function(masque_key,curdir){
res = NULL
PS = Project_status(masque_key,curdir)
if(PS$passOK){
if(PS$status=="done")
{
res = list()
......@@ -119,6 +119,7 @@ Project_box_result <- function(masque_key,curdir){
)
)
}
}
return(list(box=res,PS=PS))
......
......@@ -1441,8 +1441,9 @@ shinyServer(function(input, output,session) {
output$gaugeMasque_progress <- renderGauge({
PS = Project_status()
res = NULL
PS = Project_status(values$masque_key,values$curdir)
if(PS$passOK){
if(PS$status=="doing"){
json_file = PS$file
progress_file = paste(values$curdir,"www","masque","doing",paste(basename(file_path_sans_ext(json_file)),"_progress",".txt",sep=""),sep= .Platform$file.sep)
......@@ -1456,6 +1457,7 @@ shinyServer(function(input, output,session) {
res = gauge(min(pf,100), 0,100,symbol = '%',label= "Progress...")
}
}
}
return(res)
})
......
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