actionButton点击闪亮后的广告窗口

Question

我目前正在制作一个闪亮的应用程序，我有一个功能允许我使用“actionButton”从数组中删除或添加一行，以及原始数组文件中的同一行。但是我想知道是否有办法在执行操作之前显示警告，询问用户是否确定要删除该行（在闪亮的或 html 或 JS 中）。

这是一个添加行的例子：

#ui.R

BDD <- box(title = "Ajout d'un genre ou d'une famille dans la BDD",status = "primary",solidHeader=TRUE, width = 12,                   
            fluidRow(
              # column(12,fileInput(inputId="BDDtxt", label = "Selectionner le Fichier BDD des flore connues")),
              column(4,textInput("Genus_Species", "Genre ou Espèce", value = "")),
              column(5,offset = 2, textInput("description","Note sur la bacterie",value = "")),
              column(12,checkboxGroupInput("flores","Marqueurs de ces flores :",c("Digestive","Cutanée","Oro-pharyngée","environementales"))),
              column(4,offset=2,actionButton("ajouter", "Ajouter à la BDD")),
              column(4,offset=1,actionButton("modifier", "Modifier la BDD"))
              
            )
)
TabBDD <- box(title = "Affichage du tableau  BDD",status = "primary",solidHeader=TRUE, width = 12,                   
              fluidRow(
                column(12,DT::dataTableOutput("TabBDD")),
                column(12,offset=4,actionButton("selectionner","Sélectionner"))
              )
          )

#server.R

      values <- reactiveValues(
        TabBDD = NULL
      )
      
      observe({
        if(file.exists("BDDflore.txt")) {
          values$TabBDD <- read.delim("BDDflore.txt")
        } else {
          NULL
        }
      })
      
      observeEvent(input$ajouter,{
        Tab <- data.frame(
                  Species = input$Genus_Species,
                  Flore = paste(input$flores, collapse = ","),
                  Comment = input$description
        )
        write_delim(Tab,
                    file = "BDDflore.txt",
                    delim = "\t",
                    append = TRUE)
        if (is.null(values$TabBDD)) {
          values$TabBDD <- Tab
        } else {
          values$TabBDD <- rbind(
            values$TabBDD,
            Tab
          )
        }
      })

      output$TabBDD <- DT::renderDataTable({
        if(!is.null(values$TabBDD)){
          values$TabBDD
        }
      })


#BDDflore.txt  

Species Flora   Comment
Propionibacterium acnes Cutanée Marqueur de la flore cutanée

提前致谢

Answer 1

也许使用 shinyalert 包，类似这样：

observeEvent(input$delete, {
  shinyalert(
    title = "Are you sure?",
    text = "Delete row?", 
    showCancelButton = TRUE,
    cancelButtonText = "No",
    callbackR = function(ok) { 
      if(ok){
        # R code to delete the row
      }
    }
  )
})