Shiny中如何获取最后点击的单选按钮值实现正确弹窗逻辑

配置了5个选项均为yes/no的单选按钮，需求为仅当用户在任意单选按钮上最新选中「No」选项时，才触发modalDialog弹窗弹出。
最初使用全量或逻辑判断实现，存在明显缺陷：当buttonAbluf1已选中「No」后，再将buttonAbluf2切换为「Yes」时，也会错误触发弹窗。原有错误实现代码如下：

if(isTRUE(input$buttonAbluf1=="No" ||
    input$buttonAbluf2 =="No" ||
    input$buttonAbluf3 =="No" ||
    input$buttonAbluf4 =="No" ||
    input$buttonAbluf5 =="No"))
{
    showModal(popup())
}
popup <- function(){
    modalDialog(easyClose = F,
      textAreaInput("com", "Bemerkung:", width = "750px", heigh = "200px"),
      size = "l"
    )
}

原有判断逻辑没有追踪用户的最新操作对象，只要5个单选按钮中任意一个的当前值为「No」，无论用户本次操作的是哪个按钮、选了什么值，都会触发弹窗，完全没有匹配「仅最新点击的按钮选No才弹窗」的需求。

核心逻辑是放弃全量值的或判断，改为单独监听每个单选按钮的取值更新事件，仅当*触发本次更新的按钮的新值为「No」*时，才唤起弹窗，其他按钮的历史、当前取值都不参与判断。

• 保留原有弹窗定义，修正原代码里heigh的拼写错误为height
• 为每个单选按钮绑定独立的更新监听，只校验当前被操作按钮的取值
• 可选择批量生成监听减少冗余代码

可直接运行的正确代码如下：

# 定义弹窗组件
popup <- function(){
  modalDialog(
    easyClose = FALSE,
    textAreaInput("com", "Bemerkung:", width = "750px", height = "200px"),
    size = "l"
  )
}

# 写法1：逐一声明每个按钮的监听（逻辑直观，适合按钮数量少的场景）
observeEvent(input$buttonAbluf1, {
  if (input$buttonAbluf1 == "No") showModal(popup())
})
observeEvent(input$buttonAbluf2, {
  if (input$buttonAbluf2 == "No") showModal(popup())
})
observeEvent(input$buttonAbluf3, {
  if (input$buttonAbluf3 == "No") showModal(popup())
})
observeEvent(input$buttonAbluf4, {
  if (input$buttonAbluf4 == "No") showModal(popup())
})
observeEvent(input$buttonAbluf5, {
  if (input$buttonAbluf5 == "No") showModal(popup())
})

# 写法2：批量生成监听（精简代码，适合按钮数量多的场景，效果和写法1完全一致）
# lapply(paste0("buttonAbluf", 1:5), function(btn_id){
#   observeEvent(input[[btn_id]], {
#     if (input[[btn_id]] == "No") showModal(popup())
#   })
# })

该实现的效果完全匹配需求：

• 用户操作任意单选按钮选「No」：立刻触发弹窗
• 已有按钮选过「No」，后续操作其他按钮选「Yes」：不会触发弹窗
• 单个按钮从「No」切回「Yes」：不会触发弹窗
• 单个按钮从「Yes」切回「No」：正常触发弹窗

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