根据select输入中的多个值过滤表格并在shiny中呈现

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
  pickerInput(
    inputId = "filter_values",
    label = "选择过滤条件",
    choices = c("值1", "值2", "值3", "值4"),
    options = list(`actions-box` = TRUE),
    multiple = TRUE
  ),
  dataTableOutput("filtered_table")
)

server <- function(input, output) {
  # 创建一个示例数据表
  data <- data.frame(
    名称 = c("项目1", "项目2", "项目3", "项目4"),
    值 = c("值1", "值2", "值3", "值4")
  )
  
  # 根据用户选择的过滤条件，对表格进行过滤
  filtered_data <- reactive({
    data[data$值 %in% input$filter_values, ]
  })
  
  # 在Shiny应用程序中呈现过滤后的表格
  output$filtered_table <- renderDataTable({
    filtered_data()
  })
}

shinyApp(ui, server)