如何在R Shiny DT datatable中实现包含式多选项过滤？

针对你遇到的DT默认顶部过滤仅支持精确匹配的问题，提供两种可行的实现方法：

方法一：客户端JS回调（流畅无服务器交互） #

通过自定义DataTables的JS回调函数，直接在浏览器端实现包含式过滤，无需服务器端数据传输，体验更流畅。

library(shiny)
library(dplyr)
library(DT)

# 注意：避免同时加载plyr与dplyr，二者部分函数（如filter）会冲突，此处无需plyr可移除
data1 <- data.frame(
  ID = 1:7,
  B = as.factor(c("a", "b", "a", "a|b", "a", "c", "a|b|c"))
)

ui <- fluidPage(
  DT::DTOutput("table")
)

server <- function(input, output) {
  output$table <- renderDataTable({
    datatable(
      data1,
      filter = "top",
      options = list(
        search = list(regex = FALSE), # 关闭全局正则搜索，避免|符号干扰
        columnDefs = list(
          list(
            targets = 1, # 目标列索引（从0开始），对应B列
            # 自定义搜索逻辑：检查数据是否包含输入文本
            search = JS(
              "function(data, regex, text) {",
              "  return text === '' ? true : data.indexOf(text) !== -1;",
              "}"
            )
          )
        )
      )
    )
  })
}

shinyApp(ui, server)

代码说明： #

• columnDefs指定需要自定义过滤的列（B列索引为1）
• 自定义search函数：当输入框为空时返回所有行，否则检查数据中是否包含输入文本（indexOf为普通字符串匹配，不会将|解析为正则符号）
• 保持regex=FALSE避免全局正则冲突，确保|仅作为普通分隔符处理

方法二：服务器端手动过滤（灵活支持复杂逻辑） #

如果需要更复杂的过滤规则（如正则匹配、多条件组合），可以手动添加输入控件，在服务器端用grepl实现包含匹配。

library(shiny)
library(dplyr)
library(DT)

data1 <- data.frame(
  ID = 1:7,
  B = as.factor(c("a", "b", "a", "a|b", "a", "c", "a|b|c"))
)

ui <- fluidPage(
  # 手动添加过滤输入框，替代DT默认顶部过滤
  textInput("filter_b", "筛选B列:", placeholder = "输入关键词（如a）"),
  DT::DTOutput("table")
)

server <- function(input, output) {
  # 响应式过滤数据
  filtered_data <- reactive({
    req(input$filter_b)
    if(input$filter_b == "") {
      data1
    } else {
      # grepl实现包含匹配，ignore.case=TRUE支持大小写忽略
      data1 %>% filter(grepl(input$filter_b, B, ignore.case = TRUE))
    }
  })
  
  output$table <- renderDataTable({
    datatable(filtered_data(), filter = "none") # 关闭DT默认过滤，避免冲突
  })
}

shinyApp(ui, server)

代码说明： #

• 用textInput手动创建过滤控件，完全控制过滤逻辑
• grepl函数直接匹配包含关键词的行，可灵活添加参数（如ignore.case忽略大小写、perl=TRUE支持Perl正则）
• 关闭DT默认的filter="top"，避免双重过滤冲突

注意事项 #

1. 避免同时加载plyr和dplyr，二者的filter等函数会命名冲突，优先使用dplyr
2. 如果需要支持正则匹配，可将方法一中的indexOf改为正则测试，或打开DT的regex=TRUE（需注意转义|等特殊字符）
3. 因子类型数据无需转换为字符，grepl和JS的indexOf均可直接处理因子的字符表现

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