如何使用r Shiny中的daterangeinput按名称过滤具有月份和年份的列？

library(shiny)

ui <- fluidPage(
  titlePanel("按名称过滤具有月份和年份的列"),
  
  sidebarLayout(
    sidebarPanel(
      dateRangeInput("dateRange", "选择日期范围：", start = NULL, end = NULL)
    ),
    
    mainPanel(
      tableOutput("filteredTable")
    )
  )
)

server <- function(input, output) {
  # 读取数据集
  data <- read.csv("data.csv")
  
  # 过滤数据集
  filteredData <- reactive({
    startDate <- input$dateRange[1]
    endDate <- input$dateRange[2]
    
    # 根据日期范围过滤数据
    filtered <- subset(data, Date >= startDate & Date <= endDate)
    
    # 返回过滤后的数据
    filtered
  })
  
  # 输出过滤后的表格
  output$filteredTable <- renderTable({
    filteredData()
  })
}

shinyApp(ui, server)