如何在Shiny中获取失效输入？多图点击更新文本框问题

你提到的which.invalid()函数其实并不存在于Shiny的内置函数中，但我们有两种简单可靠的方法来实现你想要的——追踪最后被点击的图表并更新文本框：

方法一：用reactiveValues记录最后点击的输入ID #

这种方法直观易懂，适合输入数量不多的场景：

server <- function(input, output, session) {
  # 初始化一个响应式值来存储最后点击的图表ID
  last_clicked_plot <- reactiveValues(id = NULL)
  
  # 为每个图表的点击事件单独绑定监听，更新记录
  observeEvent(input$plot1_click, {
    last_clicked_plot$id <- "plot1"
  })
  
  observeEvent(input$plot2_click, {
    last_clicked_plot$id <- "plot2"
  })
  
  observeEvent(input$plot3_click, {
    last_clicked_plot$id <- "plot3"
  })
  
  # 监听所有图表点击，统一更新文本框
  observeEvent({
    input$plot1_click
    input$plot2_click
    input$plot3_click
  }, {
    updateTextInput(session, "textbox", label = NULL, value = last_clicked_plot$id)
  })
}

每个图表被点击时，我们都会更新last_clicked_plot$id的值，最后在统一的监听事件里直接读取这个值即可。

方法二：用getCurrentContext()直接获取触发事件的输入ID #

如果你的图表数量较多，这种方法会更简洁，不需要为每个点击单独写监听：

server <- function(input, output, session) {
  observeEvent({
    input$plot1_click
    input$plot2_click
    input$plot3_click
  }, {
    # 获取当前触发这个监听事件的输入ID
    triggered_plot <- shiny::getCurrentContext()$inputId
    # 注意这里会拿到完整的输入名，比如"plot1_click"，如果需要只保留"plot1"可以做字符串处理
    # triggered_plot <- gsub("_click", "", triggered_plot)
    updateTextInput(session, "textbox", label = NULL, value = triggered_plot)
  })
}

shiny::getCurrentContext()会返回当前反应式上下文的详细信息，其中inputId就是触发本次事件的具体输入名称。如果只需要图表的前缀（比如去掉_click），可以用gsub做简单的字符串处理。

这两种方法都能完美解决你的问题，根据你的实际场景选择即可。

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