我一直在尝试在shiny上的renderdt表函数的搜索栏上添加多个条目。例如，在下面的代码中，我不想有一个新的搜索栏，而是想修改renderDT中内置的搜索栏，并允许它包含多个条目，逗号分隔;例如setosa，virginica应该带来同时具有setosa和virginica的行。我找到了添加一个新搜索栏的解决方案，但我想知道我是否可以相应地修改这个。任何有关这方面的帮助将不胜感激。

if (interactive()) {
  library(shiny)
  library(DT)
  shinyApp(
    ui = fluidPage(fluidRow(column(12, DTOutput('tbl')))),
    server = function(input, output) {
      output$tbl = renderDT(
        iris, options = list(lengthChange = FALSE)
      )
    }
  )
}

我尝试了类似的东西，但这增加了另一个搜索栏选项，这是不必要的

if (interactive()) {
  library(shiny)
  library(DT)
  
  shinyApp(
    ui = fluidPage(
      fluidRow(DTOutput('tbl'))
    ),
    server = function(input, output) {
      output$tbl = renderDT({
        data <- iris
        
        searchItems <- unlist(strsplit(input$search, ",")) # Split input string by commas
        searchItems <- trimws(searchItems) # Remove leading/trailing whitespace
        
        filteredData <- data[data$Species %in% searchItems, ]
        
        datatable(filteredData, options = list(lengthChange = FALSE))
      })
    }
  )
}