R Shiny多动作按钮观测问题：如何判断点击的按钮？

嘿，作为Shiny新手遇到这个问题太正常啦！我来帮你搞定～你之前的写法没法区分是哪个按钮触发的事件，因为用c(input$button1, input$button2)作为observeEvent的触发源时，只要其中一个按钮被点击就会触发，但没法直接拿到具体是哪一个。下面给你几种实用的解决方法，按需选择就行：

方法一：用getCurrentContext()获取触发按钮（Shiny 1.6.0+适用） #

如果你的Shiny版本是1.6.0及以上，这个方法最简洁——直接获取触发当前事件的输入ID：

library(shiny)
library(plotly)

ui <- fluidPage(
  actionButton("button1", "按钮1"),
  actionButton("button2", "按钮2"),
  plotlyOutput("mean")
)

server <- function(input, output, session) {
  observeEvent({c(input$button1, input$button2)}, {
    # 拿到触发事件的按钮ID
    trigger_button <- shiny::getCurrentContext()$inputId
    
    output$mean <- renderPlotly({
      if(trigger_button == "button1") {
        # 按钮1点击后的绘图逻辑
        plot_ly(x = rnorm(100), type = "histogram")
      } else if(trigger_button == "button2") {
        # 按钮2点击后的绘图逻辑
        plot_ly(x = rnorm(100, mean = 5), type = "histogram")
      }
    })
  })
}

shinyApp(ui, server)

方法二：为每个按钮单独创建observeEvent（逻辑最清晰） #

如果两个按钮的处理逻辑差异较大，分开写会更直观，后期维护也方便：

library(shiny)
library(plotly)

ui <- fluidPage(
  actionButton("button1", "按钮1"),
  actionButton("button2", "按钮2"),
  plotlyOutput("mean")
)

server <- function(input, output, session) {
  # 处理按钮1的点击事件
  observeEvent(input$button1, {
    output$mean <- renderPlotly({
      plot_ly(x = rnorm(100), type = "histogram")
    })
  })
  
  # 处理按钮2的点击事件
  observeEvent(input$button2, {
    output$mean <- renderPlotly({
      plot_ly(x = rnorm(100, mean = 5), type = "histogram")
    })
  })
}

shinyApp(ui, server)

方法三：用响应式变量记录最后点击的按钮（兼容旧版Shiny） #

如果你的Shiny版本较低，没法用getCurrentContext()，可以用reactiveVal来存最后点击的按钮ID：

library(shiny)
library(plotly)

ui <- fluidPage(
  actionButton("button1", "按钮1"),
  actionButton("button2", "按钮2"),
  plotlyOutput("mean")
)

server <- function(input, output, session) {
  # 创建响应式变量，存储最后点击的按钮ID
  last_clicked_btn <- reactiveVal(NULL)
  
  # 监听按钮1点击，更新变量
  observeEvent(input$button1, {
    last_clicked_btn("button1")
  })
  
  # 监听按钮2点击，更新变量
  observeEvent(input$button2, {
    last_clicked_btn("button2")
  })
  
  # 根据记录的按钮ID绘图
  output$mean <- renderPlotly({
    req(last_clicked_btn()) # 确保有点击事件后再绘图
    if(last_clicked_btn() == "button1") {
      plot_ly(x = rnorm(100), type = "histogram")
    } else {
      plot_ly(x = rnorm(100, mean = 5), type = "histogram")
    }
  })
}

shinyApp(ui, server)

简单说下你之前的问题：你试图在renderPlotly里直接判断input的值，但input$button1和input$button2都是递增的点击次数，每次点击其中一个，另一个的值不会变，所以没法直接知道这次触发是哪个按钮导致的，上面的方法就是帮你明确这个触发源～

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