如何在shinydashboard中创建每个选项卡都有自己的日期输入范围的选项

install.packages("shinydashboard")

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody()
)

server <- function(input, output) {
  
}

shinyApp(ui, server)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    tabItems(
      tabItem(tabName = "tab1",
              dateRangeInput("dateRange1", "日期范围1", start = "2022-01-01", end = "2022-12-31")),
      tabItem(tabName = "tab2",
              dateRangeInput("dateRange2", "日期范围2", start = "2022-01-01", end = "2022-12-31")),
      tabItem(tabName = "tab3",
              dateRangeInput("dateRange3", "日期范围3", start = "2022-01-01", end = "2022-12-31"))
    )
  )
)

server <- function(input, output) {
  observe({
    # 处理日期范围1的值
    dateRange1 <- input$dateRange1
    # 进行相应的处理逻辑
  })
  
  observe({
    # 处理日期范围2的值
    dateRange2 <- input$dateRange2
    # 进行相应的处理逻辑
  })
  
  observe({
    # 处理日期范围3的值
    dateRange3 <- input$dateRange3
    # 进行相应的处理逻辑
  })
}

shinyApp(ui, server)