在具有多个条目的R shiny数据表中搜索列

install.packages("shiny")

library(shiny)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      textInput("search", "搜索列:")
    ),
    mainPanel(
      dataTableOutput("table")
    )
  )
)

library(shiny)

server <- function(input, output) {
  
  # 加载数据
  data <- read.csv("your_data.csv")
  
  # 更新数据表
  output$table <- renderDataTable({
    if (input$search != "") {
      # 使用grepl函数搜索匹配的列
      filtered_data <- data[, grepl(input$search, names(data))]
    } else {
      filtered_data <- data
    }
    
    # 返回结果给数据表
    filtered_data
  })
}

shinyApp(ui, server)