闪亮：如何创建确认对话框

我修改了部分代码以进行调用

js_string <- 'confirm("Are You Sure?");'
session$sendCustomMessage(type='jsCode', list(value = js_string))

调用确认对话框而不是警报对话框。然后

tags$script(
            HTML('
                Shiny.addCustomMessageHandler(
                    type = "jsCode"
                    ,function(message) {
                    Shiny.onInputChange("deleteConfirmChoice",eval(message.value));
                })
            ')
)

发送确认对话框返回的值。然后，我仅检查了input $ deleteConfirmChoice的值以确定要执行的操作。非常感谢你！现在，我了解了如何与R和Javascript之间收发消息。