R Shiny中如何将一个datatable的搜索值传递给其他多个datatable？

核心实现逻辑 #

DT渲染的每个datatable都会自动把原生搜索框的实时输入值存入Shiny的input对象，字段命名规则为input$[表格OutputId]_search，配合DT提供的表格代理（proxy）接口，可以直接在不改动原生搜索UI、不重绘表格的前提下，把主表的搜索关键词实时同步给其他所有表格，完全复用DT原生搜索的防抖、匹配规则、交互体验，不需要额外自定义全局搜索框。

实现步骤 #

• 1. 页面加载时正常渲染所有datatable，主表的outputId固定为records，其余表格自定义Id即可
• 2. 服务端为除主表外的所有datatable创建DT代理对象，代理对象可以直接操作已渲染完成的表格实例，不会触发整表重绘
• 3. 添加监听事件，实时捕获input$records_search的数值变化，每次变化时遍历所有非主表的代理对象，调用原生updateSearch方法传入当前主表的搜索关键词，即可完成跨表搜索状态同步

可运行示例代码 #

library(shiny)
library(DT)

ui <- fluidPage(
  h3("主表 records（原生搜索框输入内容会自动同步到下方两个表格）"),
  DTOutput("records"),
  hr(),
  h3("副表1"),
  DTOutput("table1"),
  hr(),
  h3("副表2"),
  DTOutput("table2")
)

server <- function(input, output) {
  # 渲染主表records，使用默认原生搜索框
  output$records <- renderDT({
    datatable(iris, filter = "none")
  })
  
  # 渲染两个副表
  output$table1 <- renderDT({
    datatable(mtcars, filter = "none")
  })
  output$table2 <- renderDT({
    datatable(airquality, filter = "none")
  })
  
  # 创建副表的DT代理
  proxy_t1 <- dataTableProxy("table1")
  proxy_t2 <- dataTableProxy("table2")
  
  # 监听主表搜索值变化，实时同步给所有副表
  observeEvent(input$records_search, {
    # 要同步的搜索参数，关键词为list的search字段
    search_param <- list(search = input$records_search)
    # 逐个更新副表搜索状态
    updateSearch(proxy_t1, search_param)
    updateSearch(proxy_t2, search_param)
  }, ignoreInit = TRUE)
}

shinyApp(ui, server)

注意事项 #

• 该方案默认是单向同步：仅主表records的搜索框会驱动其他表格更新，副表自身的搜索框修改不会影响主表，不会出现循环触发的问题；如果需要双向/多向同步，只要增加对应表格input$[id]_search的监听即可
• 同步过程仅更新表格的搜索状态，不会重新加载、重绘表格，响应速度和原生搜索完全一致，没有额外性能损耗
• 支持所有DT原生搜索的特性：包括正则匹配、大小写敏感设置、列搜索同步，如果需要同步列搜索状态，只要监听input$[id]_search_columns字段，传入updateSearch的columns参数即可

内容的提问来源于stack exchange，提问作者A-A-ron