R 如何在闪亮的仪表板中的另一个tabpanel下嵌入tabpanel

我构建了一个简单的示例，ui1基于（闪亮的）navbarPage，在ui2中我使用闪亮的dashboardpage。 在ui1中，我可以使用tabsetPanel将TabPanel显示在彼此下面，而在闪亮的仪表板中，我不能做同样的事情。 如何在Shining dashboard页面中实现ui1示例中的tabsetPanel

library(shiny)
library(shinydashboard)

  ui1 = dashboardPage(
    dashboardHeader(title = "tabBoxes"),
    dashboardSidebar(),
    dashboardBody(
      tabPanel("Main1",
               tabsetPanel(
                 tabPanel("tab1","TAB1"),
                 tabPanel("tab2","TAB2")
               )),
      tabPanel("Main2",textOutput("text"))

    )
  )
  ui2=navbarPage("tabBoxes",
                tabPanel("Main1",
                         tabsetPanel(
                           tabPanel("tab1","TAB1"),
                           tabPanel("tab2","TAB2")
                         )),
                tabPanel("Main2",textOutput("text"))
                )

  server = function(input, output) {
    # The currently selected tab from the first box
    output$text <- renderText({
      paste("hi")
    })

  }

  shinyApp(ui=ui1,server=server)
  shinyApp(ui=ui2,server=server)

库（闪亮）
图书馆（shinydashboard）
ui1=仪表板页面(
仪表板标题（title=“tabbox”），
仪表板侧栏（），
仪表板主体(
选项卡面板（“Main1”，
选项卡面板(
tabPanel（“tab1”、“tab1”），
tabPanel（“tab2”、“tab2”）
)),
选项卡面板（“Main2”，文本输出（“文本”））
)
)
ui2=navbarPage（“选项卡框”，
选项卡面板（“Main1”，
选项卡面板(
tabPanel（“tab1”、“tab1”），
tabPanel（“tab2”、“tab2”）
)),
选项卡面板（“Main2”，文本输出（“文本”））
)
服务器=功能（输入、输出）{
#第一个框中当前选定的选项卡
输出$text