R Shiny实现用户可选AND/OR逻辑的灵活过滤器开发问题求助

以下是修改后可直接运行的完整代码，过滤逻辑完全适配动态数量的选项，无需硬编码：

df <- data.frame(value = 1:7,
                 filter = c("x","y","z","xy", "xz", "yz", "xyz"))

library(shiny)
library(dplyr)
library(stringr)
library(purrr)
library(DT)

ui <- fluidPage(
  title = "Example",
  sidebarLayout(
    sidebarPanel(
      radioButtons("andOR", 
                   label = "Filters Logic:",
                   c("OR", "AND"),
                   inline = TRUE),
      checkboxGroupInput("filter", "Filter Options:",
                         letters[24:26], selected = letters[24:26])
    ),
    mainPanel(
      DT::dataTableOutput("mytable1")
    )
  )
)

server <- function(input, output) {
  
  #过滤逻辑
  filteredData <- reactive({
    selected_opts <- input$filter
    # 未选中任何选项时默认返回全量数据，可根据需求调整为返回空数据
    if (length(selected_opts) == 0) {
      return(df)
    }
    if (input$andOR == 'OR') {
      df %>%
        # 匹配任意一个选中的选项即可保留
        filter(str_detect(filter, paste(selected_opts, collapse = "|")))
    } else {
      df %>%
        # 所有选中的选项都匹配才保留
        filter(every(selected_opts, ~str_detect(filter, .x)))
    }
  })
  
  output$mytable1 <- DT::renderDataTable({
    DT::datatable(filteredData())
  })
  
}

shinyApp(ui, server)

逻辑说明 #

• 整套逻辑不绑定固定过滤选项，后续新增过滤项仅需要修改checkboxGroupInput的choices参数即可，无需调整过滤代码，适配10个甚至更多选项的场景
• 如果实际场景中过滤选项存在包含关系（比如同时存在x和xy两个选项），可以给str_detect增加单词边界匹配规则，比如改为str_detect(filter, paste0("\\b", .x, "\\b"))避免短选项误匹配长选项
• 未勾选任何选项时的返回规则可根据业务需求调整，当前默认返回全量数据，若需要返回空将return(df)改为return(df[0,])即可

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