如何在R Shiny中选中指定选项时触发observeEvent？

完整修正代码 #

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
  br(), br(),
  radioGroupButtons(
    inputId = "show",
    label = NULL, 
    choices = c("Add","Show table"),
    status = "primary",
    selected = "Add",
    # 添加点击事件：点击Add选项时发送自定义输入信号
    onclick = "if($(this).find('input:checked').val() === 'Add') {Shiny.setInputValue('add_clicked', Math.random());}"
  ),
  br(),
  fluidRow(tableOutput("data")),
  fluidRow(
    conditionalPanel(
      "input.show == 'Show table'",
      column(10,
             column(4, h5(textOutput("text"))),
             column(6, tableOutput("table")),
             style = "border: 2px solid grey; margin-left: 15px;"
      ),
      style = "display: none;"
    )
  )
)

server <- function(input, output, session) {
  
  x = reactiveVal(0)
  
  output$data <- renderTable(x())
  output$table <- renderTable(iris[1:5, 1:3])
  output$text <- renderText("Test show/hide in JS")
  
  # 监听自定义的Add点击信号
  observeEvent(input$add_clicked, {
    x(x() + 1)
  })
  
}

shinyApp(ui, server)

关键修正说明 #

1. 移除测试按钮：直接删除UI中的actionButton("add","Test add")行，不再保留测试用按钮。
2. 添加自定义点击监听：给radioGroupButtons增加onclick属性，通过JS判断点击的是"Add"选项时，调用Shiny.setInputValue发送随机值到add_clicked输入（用随机值确保每次点击都能触发反应式更新，因为Shiny仅在输入值变化时触发监听）。
3. 替换触发逻辑：在server中监听input$add_clicked，每次触发就执行数值加1操作，完美替代原测试按钮的功能。

原代码错误分析 #

你之前尝试的observeEvent("input.show == 'Add'",{x(x()+1)})写法存在两个问题：

• observeEvent的第一个参数必须是反应式表达式（如input$show），而非字符串；
• 即使写成observeEvent(input$show == "Add", ...)，也仅会在条件从FALSE变为TRUE时触发（即从"Show table"切换到"Add"时），无法响应重复点击"Add"的操作（因为此时input$show值未变化，条件状态也未变化）。

内容的提问来源于stack exchange，提问作者Village.Idyot