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

shiniy updateshinyalert message

parent 0b461820
......@@ -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
......
......@@ -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
......
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