Shinyalert:我如何知道用户是按了OK还是Cancel？

Shinyalert是一个用于在Shiny应用程序中创建弹出式警报框的R包。它提供了一种简单的方法来与用户进行交互，并获取他们的响应。当用户按下OK或Cancel按钮时，您可以通过以下方式知道用户的选择：

使用触发按钮：您可以在弹出警报框中添加一个触发按钮，例如"确认"或"取消"。当用户按下按钮时，您可以通过触发按钮的回调函数来获取用户的选择。根据用户的选择，您可以执行相应的操作或采取适当的措施。
使用回调函数：您可以在弹出警报框中设置回调函数，以便在用户按下OK或Cancel按钮时触发。回调函数将接收一个参数，该参数指示用户的选择。您可以根据该参数的值来确定用户是按下了OK还是Cancel。

以下是一个示例代码，展示了如何使用Shinyalert来获取用户的选择：

library(shiny)
library(shinyalert)

ui <- fluidPage(
  useShinyalert(),
  
  actionButton("show_alert", "显示警报框")
)

server <- function(input, output, session) {
  observeEvent(input$show_alert, {
    shinyalert(
      title = "警报框",
      text = "您确定要执行此操作吗？",
      type = "warning",
      showCancelButton = TRUE,
      closeOnClickOutside = FALSE,
      callbackR = TRUE,
      callback = jsCallback
    )
  })
  
  jsCallback <- '
    function (isConfirm) {
      if (isConfirm) {
        // 用户按下了OK按钮
        Shiny.setInputValue("user_choice", "OK");
      } else {
        // 用户按下了Cancel按钮
        Shiny.setInputValue("user_choice", "Cancel");
      }
    }
  '
  
  observeEvent(input$user_choice, {
    choice <- input$user_choice
    
    if (choice == "OK") {
      # 用户按下了OK按钮，执行相应的操作
      # ...
    } else if (choice == "Cancel") {
      # 用户按下了Cancel按钮，采取适当的措施
      # ...
    }
  })
}

shinyApp(ui, server)

在上述示例中，我们使用了shinyalert函数来创建一个警报框。设置showCancelButton参数为TRUE以显示取消按钮。在回调函数jsCallback中，我们使用Shiny.setInputValue函数将用户的选择传递给Shiny应用程序的服务器端。然后，我们使用observeEvent来监听input$user_choice的变化，并根据用户的选择执行相应的操作。

请注意，上述示例中没有提及任何特定的腾讯云产品或链接地址。如果您需要与腾讯云相关的产品和链接，请参考腾讯云的官方文档或咨询腾讯云的技术支持团队。