如何将Shiny中的pickerInput与DataTable关联，实现选择项变动时表格同步更新

要实现pickerInput与DataTable的联动筛选效果，只需对现有代码做3处调整即可，完整可运行的修改后代码如下：

library(shiny)
library(shinyWidgets) # 新增：pickerInput属于该扩展包
library(DT) # 新增：显式加载DT包避免渲染报错
library(data.table)

results <- iris
results$Species <- as.character(results$Species)

# UI
ui <- fluidPage(
    
    # Application title
    titlePanel(
        h1("Iris Table", align="center")
    ),
    
    fluidRow(
        column(3,
               pickerInput("speciesInput", "Species", choices=unique(results$Species), options = list(`actions-box` = TRUE), selected=NULL, multiple=TRUE)
        ),
        column(9, 
               DT::dataTableOutput('table')))
    
)

# Server
server <- function(input, output) {
  # 新增：响应式过滤数据集，随pickerInput选中值自动更新
  filtered_data <- reactive({
    # 未选中任何选项时返回全量数据
    if (is.null(input$speciesInput) || length(input$speciesInput) == 0) {
      return(results)
    }
    # 选中对应分类时返回匹配行
    results[results$Species %in% input$speciesInput, ]
  })
    
  output$table <- DT::renderDataTable(
    DT::datatable(
      filtered_data(), # 修改：传入响应式过滤后的数据集
      escape = FALSE
    ))
    
}

# Run the application 
shinyApp(ui = ui, server = server)

修改点说明 #

• 补全依赖包：新增加载shinyWidgets（提供pickerInput组件）和DT（提供DataTable相关功能），避免运行时找不到函数报错
• 新增响应式过滤逻辑：通过reactive()定义动态数据集，会自动监听pickerInput的选中值变化，触发数据更新
• 替换DT渲染数据源：将原来固定的iris替换为动态的filtered_data()，即可实现筛选器操作后表格自动刷新

最终实现的效果如下图：

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