shiny add message box when simulation went wrong

inst/shiny-landsepi/server.R

@@ -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
         }
       ) %>%