如何检测Shiny应用中选择输入框的取值变化？

要实现跟踪selectInput多选框的选择变化，核心是用reactiveValues存储上一次和当前的选择状态，通过observeEvent监听选择变化并更新状态，最终输出对比结果。以下是完整的可行方案：

完整修改代码 #

library(shiny)
library(shinydashboard)
library(htmltools)

ui <- fluidPage(
  inputPanel(
    selectInput("months", label = "Select Months", 
                choices = month.name, selected = month.name[1:3], 
                multiple = TRUE)
  ),
  
  strong("上一次选择:"), textOutput("previous_selection"), br(),
  strong("当前选择:"), textOutput("current_selection"), br(),
  strong("新增选项:"), textOutput("added_options"), br(),
  strong("移除选项:"), textOutput("removed_options")
  
)

server <- function(input, output) {
  # 存储上一次和当前的选择状态
  selections <- reactiveValues(
    previous = month.name[1:3],
    current = month.name[1:3]
  )
  
  # 监听选择变化，更新状态
  observeEvent(input$months, {
    # 仅当选择确实变化时更新，避免重复触发
    if (!identical(input$months, selections$current)) {
      selections$previous <- selections$current
      selections$current <- input$months
    }
  }, ignoreInit = FALSE) # 初始执行一次，确保current与input初始值一致
  
  # 输出上一次选择
  output$previous_selection <- renderText({
    paste(selections$previous, collapse = " ")
  })
  
  # 输出当前选择
  output$current_selection <- renderText({
    paste(selections$current, collapse = " ")
  })
  
  # 输出新增的选项
  output$added_options <- renderText({
    added <- setdiff(selections$current, selections$previous)
    if (length(added) > 0) {
      paste(added, collapse = " ")
    } else {
      "无"
    }
  })
  
  # 输出移除的选项
  output$removed_options <- renderText({
    removed <- setdiff(selections$previous, selections$current)
    if (length(removed) > 0) {
      paste(removed, collapse = " ")
    } else {
      "无"
    }
  })
}

shinyApp(ui, server)

关键代码说明 #

1. 状态存储：
   用reactiveValues创建可跨反应式上下文修改的状态对象，初始时将previous和current都设为selectInput的默认选中值。

2. 监听选择变化：
   通过observeEvent监听input$months的变化，ignoreInit = FALSE确保初始状态与selectInput默认值对齐；用identical判断选择是否真的变化，避免无意义的重复更新。每次变化时，先将previous更新为旧的current值，再把current替换为新的选择值。

3. 差异计算：
   用setdiff函数计算两次选择的集合差异，快速获取新增或移除的选项，实现更直观的变化展示。

内容的提问来源于stack exchange，提问作者M.Qasim