覆盖 R Shiny 模式对话框中的关闭按钮

Question

我正在 R Shiny 中使用模态对话来获取用户的输入。在此表单中，默认有一个关闭按钮，单击该按钮即可关闭表单。我想在单击关闭按钮时添加确认弹出窗口（sweetAlert）。

我也准备使用 javascript，但我需要 sweetAlert 而不是 Windows 警报。我也无法成功生成 Windows 警报。

我如何覆盖这个内置“关闭”按钮的功能？我想在有人单击“关闭”时显示警告，并仅在他们确定时才让他们继续。否则我想让他们留在模式对话中。

任何帮助表示赞赏。

Answer 1

这是一个方法。代码相当简单。-

library(shiny)

ui <- fluidPage(
  actionButton("show", "Show Modal")
)

server <- shinyServer(function(input, output, session) {
  observeEvent(input$show, {
    showModal(
      modalDialog(
        "some messsage", title = "modal", footer = actionButton("confirm", "Close")
      )
    )
  })

  observeEvent(input$confirm, {
    showModal(
      modalDialog(
        "are you sure?",
        footer = tagList(
          actionButton("yes", "Yes"),
          modalButton("No")
        )
      )
    )
  })

  observeEvent(input$yes, {
    removeModal()
    # do something after user confirmation
  })
})

shinyApp(ui, server)