如何在R的Shiny应用中基于分隔字符串筛选数据行？

我的数据框包含一个分号分隔的字符串字段，在Shiny应用中配置了treeInput复选框输入，以及带有“Any”“All”选项的单选按钮，需要实现以下匹配逻辑：

• 选择“Any”时：只要选中项中的任意一个值存在于分隔字符串中，就保留该行（集合交集逻辑）
• 选择“All”时：仅保留分隔字符串内容与选中项完全一致的行（集合等价逻辑）

但当前代码行为不符合预期，例如仅选中“4”且选择“Any”时，预期保留第2、3、6行；切换为“All”时仅保留第3行，实际结果与预期不符。

1. ANY逻辑判断错误：原代码使用length(intersect(...)) >= 0，但交集长度永远≥0（空集长度为0），导致该条件始终为真，所有行都会被保留。正确逻辑应为判断交集长度≥1，即至少存在一个匹配项。
2. "All"选项处理遗漏：当选中“All”时，未做特殊处理，而是直接剔除该选项后执行匹配逻辑，不符合“All”应返回全部数据的预期。
3. 无效代码干扰：存在未定义的input$spectrumLeftCheckbox相关打印代码，属于无效代码且可能引发报错。

library(shiny)
library(dplyr)
library(DT)
library(shinyWidgets)
library(shinydashboard)

ui <- fluidPage(
    titlePanel("DT"),
    sidebarLayout(
        sidebarPanel(
            treeInput(
                inputId = "spectrumDeployedCheckbox",
                label   = "Spectrum Deployed",
                choices = create_tree(
                    data.frame(
                        "All" = c("All"),
                        "Deployed" = c("13","5","2","4","66","77"),
                        "DeployedVAR" = c("13","5","2","4","66","77") 
                    ),
                    levels = c("All","Deployed"),
                    levels_id = c("All","DeployedVAR")
                ),
                selected = c("All"),
                returnValue = "id",
                closeDepth = 1 
            ),
            radioButtons(
                "spectrumDeployedMatchRadioButton", 
                "Match On",
                choiceNames=c("Any","All"), 
                choiceValues=c("ANY","ALL"),
                selected='ANY'
            )
        ),
        mainPanel(
            DT::dataTableOutput("demoTable")
        )
    )
)

server <- function(input, output) {
    OPRBAND <- c("13;5","4;2","4","13","5","13;5;2;4;66;77","44;5")
    OPRBAND2 <- c("13;5","4;2","4","13","5","13;5;2;4;66;77","44;5")
    data <- data.frame(OPRBAND,OPRBAND2) %>%
        rowwise() %>%
        mutate(
            OPRBAND_LIST = strsplit(OPRBAND,split=";") 
        ) %>%
        ungroup()
    
    tableData <- reactive({
        # 提取选中项，排除"All"
        selected_vals <- input$spectrumDeployedCheckbox[input$spectrumDeployedCheckbox != 'All']
        
        # 选中"All"时直接返回全部数据
        if ('All' %in% input$spectrumDeployedCheckbox) {
            return(data)
        }
        
        data %>%
            rowwise() %>% 
            filter( 
                case_when(
                    input$spectrumDeployedMatchRadioButton == 'ANY' ~ 
                        # ANY逻辑：至少存在一个匹配项
                        length(intersect(OPRBAND_LIST[[1]], selected_vals)) >= 1,
                    input$spectrumDeployedMatchRadioButton == 'ALL' ~ 
                        # ALL逻辑：排序后内容完全一致
                        identical(sort(selected_vals), sort(OPRBAND_LIST[[1]]))
                )
            ) %>% 
            ungroup() %>% 
            as.data.frame()
    })
    
    output$demoTable <- DT::renderDataTable({
        DT::datatable( tableData() 
                       ,extension = 'Buttons',
                       filter = list(position = 'top', clear = FALSE), 
                       options = list(
                           paging = TRUE,
                           searching = TRUE,
                           fixedColumns = TRUE,
                           autoWidth = TRUE,
                           ordering = TRUE,
                           dom = 'lftsp',
                           stateSave = TRUE,
                           order = list(list(1,'asc'),list(2,'asc'))
                       ), 
                       escape = FALSE,
                       class='display',
                       rownames = FALSE
        )
    }, server=FALSE, escape=FALSE)
}

shinyApp(ui = ui, server = server)

1. 新增"All"选项处理逻辑：当选中“All”时直接返回全部数据，符合该选项的预期功能。
2. 修正ANY逻辑判断：将交集长度判断从>=0改为>=1，确保只有存在匹配项时才保留该行。
3. 清理无效代码：删除未定义的input$spectrumLeftCheckbox相关打印代码，避免潜在报错。
4. 优化代码结构：提前提取排除“All”后的选中值，让代码逻辑更简洁清晰。

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