如何从shinyalert获取用户选择的返回值（确认/取消）？

问题根源 #

1. 弹窗类型不匹配：你设置了type = "input"，这会让弹窗显示输入框，但你需要的是确认/取消的选择操作，该类型会导致回调参数或input$shinyalert的值不符合预期。
2. 异步执行顺序错误：Shinyalert是异步弹窗，调用弹窗后立刻打印global$response和input$shinyalert时，用户尚未点击按钮，此时这两个值均为空。
3. 全局变量使用不当：直接用global$response存储选择结果，在Shiny的响应式环境中易引发逻辑问题，更推荐使用响应式变量或直接在回调内处理业务逻辑。

修正后的代码方案 #

方案1：通过回调函数直接处理操作逻辑

shinyalert(
  title = "Are you sure you want to clear the data?",
  callbackR = function(x) {
    # x的值为TRUE（点击确认按钮）或FALSE（点击取消按钮）
    if (x) {
      # 此处编写确认后执行的代码，例如清空数据
      print("用户确认清空数据")
    } else {
      print("用户取消了清空操作")
    }
  },
  size = "s",
  type = "warning", # 改为警告类型，匹配确认弹窗的场景
  showCancelButton = TRUE,
  confirmButtonCol = '#DD6B55',
  confirmButtonText = 'Yes, clear it!'
)

方案2：监听input$shinyalert获取选择结果

若需在其他逻辑中复用用户选择结果，可通过observeEvent监听input$shinyalert：

# 在server函数内定义监听逻辑
observeEvent(input$shinyalert, {
  user_choice <- input$shinyalert
  if (user_choice) {
    print("用户确认清空数据")
    # 执行清空数据的业务逻辑
  } else {
    print("用户取消了操作")
  }
})

# 调用弹窗的代码
shinyalert(
  title = "Are you sure you want to clear the data?",
  size = "s",
  type = "warning",
  showCancelButton = TRUE,
  confirmButtonCol = '#DD6B55',
  confirmButtonText = 'Yes, clear it!'
)

关键注意事项 #

• 移除type = "input"：该参数用于让用户输入文本，确认类弹窗无需设置。
• 避免调用弹窗后立即获取结果：必须等待用户完成操作，通过回调函数或响应式监听获取选择值。
• 优先在回调内处理逻辑：更契合Shiny的异步执行机制，规避全局变量引发的意外问题。

内容的提问来源于stack exchange，提问作者Charles Stangor