如何在闪亮R的bs4仪表板中从一个选项卡面板切换到另一个选项卡面板

install.packages("shiny")
install.packages("shinydashboard")

library(shiny)
library(shinydashboard)

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

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    tabItems(
      tabItem(tabName = "tab1",
              # 第一个选项卡面板的内容
      ),
      tabItem(tabName = "tab2",
              # 第二个选项卡面板的内容
      )
    )
  )
)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    tabItems(
      tabItem(tabName = "tab1",
              h2("第一个选项卡面板"),
              p("这是第一个选项卡面板的内容。")
      ),
      tabItem(tabName = "tab2",
              # 第二个选项卡面板的内容
      )
    )
  )
)

server <- function(input, output) {
  observeEvent(input$tabName, {
    if (input$tabName == "tab1") {
      # 当切换到第一个选项卡面板时执行的操作
    } else if (input$tabName == "tab2") {
      # 当切换到第二个选项卡面板时执行的操作
    }
  })
}

shinyApp(ui, server)