shinydashboard :在使用uiOutput时获取特定的默认页面

library(shiny)
library(shinydashboard)

# 定义UI
ui <- dashboardPage(
  dashboardHeader(title = "Shiny Dashboard"),
  dashboardSidebar(
    sidebarMenu(
      menuItem("Page 1", tabName = "page1"),
      menuItem("Page 2", tabName = "page2"),
      uiOutput("defaultPage")  # 使用uiOutput函数获取特定的默认页面
    )
  ),
  dashboardBody(
    tabItems(
      tabItem(tabName = "page1",
              h2("Page 1 Content")
      ),
      tabItem(tabName = "page2",
              h2("Page 2 Content")
      )
    )
  )
)

# 定义Server
server <- function(input, output) {
  output$defaultPage <- renderUI({
    # 根据条件返回特定的默认页面
    if (condition) {
      menuItem("Default Page", tabName = "defaultPage")
    } else {
      menuItem("Page 3", tabName = "page3")
    }
  })
}

# 运行应用程序
shinyApp(ui, server)