在Shinydashboardplus标头面板中嵌入导航栏页面

Question

是否可以嵌入导航栏页面

navbarPage("Navbar!",
                 tabPanel("Plot"

                 ),
                 tabPanel("Summary"
                 ))

在shinydashboardplus标题面板中？

library(shiny)
library(shinydashboard)
shinyApp(
  ui = dashboardPagePlus(
    header = dashboardHeaderPlus(
      enable_rightsidebar = TRUE,
      rightSidebarIcon = "gears"
    ),
    sidebar = dashboardSidebar(),
    body = dashboardBody(),
    title = "Right Sidebar"
  ),
  server = function(input, output) { }
)