Commit 16d1aaba authored by Jean-Francois Rey's avatar Jean-Francois Rey
Browse files

shiny add message box when simulation went wrong

parent a7ff55a0
......@@ -756,6 +756,13 @@ server <- function(input, output, session) {
shinyBS::addTooltip(session, "runSimulation",title=RUN_SIMULATION, placement = "top", trigger="hover")
can_run_simul$landscape <<- FALSE
future_process <- NULL
shinyalert::shinyalert(
"Oups! Something went wrong !",
"Please check inputs",
closeOnEsc = TRUE,
showCancelButton = TRUE, showConfirmButton = FALSE
)
0
}
) %>%
......
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