shiniy updateshinyalert message

inst/shiny-landsepi/modules/editableDT.R

@@ -227,10 +227,12 @@ editableDTServer <- function(id, DTdata, disableCol = shiny::reactiveVal(c()), c
       shiny::observeEvent(input$deletePressed, {
         id <- as.integer(sub(".*_([0-9]+)", "\\1", input$deletePressed))
         shinyalert::shinyalert(
-          paste0("!!! Remove line ",id,"!!!"),
-          "Are you sure ?",
+          paste0("-> Remove line ",id," !"),
+          paste0("Values : ", paste(rv$data[id,-ncol(rv$data)],collapse = " | "), "\n\nAre you sure ?"),
+          type = "warning",
           closeOnEsc = FALSE,
           showCancelButton = TRUE,
+          size = "m",
           callbackR = function(x) {
             if (x == TRUE) {
               rv$row <- id

inst/shiny-landsepi/server.R

@@ -763,6 +763,8 @@ server <- function(input, output, session) {
           shinyalert::shinyalert(
             "Oups! Something went wrong !",
             "Please check inputs",
+            type = "error",
+            size = "m",
             closeOnEsc = TRUE,
             showCancelButton = TRUE, showConfirmButton = FALSE
           )
@@ -906,7 +908,6 @@ server <- function(input, output, session) {
         }
         else {
           croptypesTable$data[,"croptypeID"] <- seq(1:nrow(croptypesTable$data))-1
-          print(croptypesTable$data)
           output$rotationText <- renderUI({HTML(setRotationText(croptypesTable$data[, 2]))})
           simul_params <<- setCroptypes(simul_params, croptypesTable$data[, 1:(ncol(croptypesTable$data) - 2)])
           can_run_simul$croptypes <<- TRUE