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

我在R Shining中使用模态对话来获取用户的输入。在该表单中，默认情况下有一个“取消”按钮，单击该按钮时将关闭该表单。我想在单击“取消”按钮时添加确认弹出警告

我已经准备好使用javascript，但我需要sweetAlert而不是windows alert。我也无法成功生成windows警报

如何覆盖此内置解除按钮的功能？我想在有人单击Disclose时显示一个警告，并且只有在他们确定的情况下才允许他们继续。否则我想让他们停留在模态对话上

---

非常感谢您的帮助。

您不需要编写自己的JS代码，而可能需要使用

具体来说，请查看确认对话框：

编辑：，例如

有光泽的图书馆 图书馆管理员

---

ui这里有一个方法。代码相当简单-

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)

---

这正是我要找的。页脚的争论帮了我的忙。它会覆盖默认的“取消”按钮。非常感谢您的正确快速回答：