如何在打开R闪亮对象时选择某个日期范围(使用dateRangelist)？

library(shiny)
library(shinydashboard)
library(shinyWidgets)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    dateRangeInput(
      inputId = "date_range",
      label = "选择日期范围",
      start = NULL,
      end = NULL
    )
  )
)

server <- function(input, output) {
  observeEvent(input$date_range, {
    start_date <- input$date_range[1]
    end_date <- input$date_range[2]
    
    # 在这里进行对所选日期范围的处理
    # 可以进行数据筛选、可视化等操作
  })
}

shinyApp(ui, server)