Commit ff43b568 authored by Loup's avatar Loup
Browse files

update audpc100S

parent 9da7d2c7
......@@ -10,7 +10,7 @@ simul_params <- setOutputs(simul_params, list(
epid_outputs = "audpc", evol_outputs = "",
thres_breakdown = 50000,
GLAnoDis = 1.48315,
audpc100S = 0.38
audpc100S = 0.76
))
......@@ -657,6 +657,9 @@ server <- function(input, output, session) {
shiny::observeEvent(input$runSimulation, {
withProgress(message = "Running Simulation, please wait...", value = 0, {
print(simul_params)
progressBar <- Progress$new()
progressBar$set(value = NULL, message = "Running Simulation, please wait...")
# setwd(paste0(ROOT_PATH,"/www/tmp/"))
......
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