update audpc100S

inst/shiny-landsepi/server.R

@@ -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/"))