单击shinydashboardPlus侧边栏中的每个选项卡后,将其与主体中的不同选项卡连接

单击shinydashboardPlus侧边栏中的每个选项卡后,将其与主体中的不同选项卡连接,r,shiny,shinydashboard,R,Shiny,Shinydashboard,是否有方法将shinydashboardPlus中右侧栏的每个选项卡与主体中的不同选项卡连接起来?每次用户单击他想要的右侧边栏选项卡的图标时,他都会移动到正文中相应的选项卡 library(shiny) library(shinydashboard) library(shinydashboardPlus) shinyApp( ui = tags$body(class="skin-blue sidebar-mini control-sidebar-open",dashb

是否有方法将
shinydashboardPlus
中右侧栏的每个选项卡与主体中的不同选项卡连接起来?每次用户单击他想要的右侧边栏选项卡的图标时,他都会移动到正文中相应的选项卡

library(shiny)
library(shinydashboard)
library(shinydashboardPlus)
shinyApp(
    ui = tags$body(class="skin-blue sidebar-mini control-sidebar-open",dashboardPagePlus(
        header = dashboardHeaderPlus(
            enable_rightsidebar = TRUE,
            rightSidebarIcon = "gears"
        ),
        sidebar = dashboardSidebar(),
        body = dashboardBody(),
        rightsidebar = rightSidebar(
            background = "dark",
            rightSidebarTabContent(
                id = 1,
                title = "Tab 1",
                icon = "desktop",
                active = TRUE,
                sliderInput(
                    "obs",
                    "Number of observations:",
                    min = 0, max = 1000, value = 500
                )
            ),
            rightSidebarTabContent(
                id = 2,
                title = "Tab 2",
                textInput("caption", "Caption", "Data Summary")
            ),
            rightSidebarTabContent(
                id = 3,
                icon = "paint-brush",
                title = "Tab 3",
                numericInput("obs", "Observations:", 10, min = 1, max = 100)
            )
        ),
        title = "Right Sidebar"
    )),
    server = function(input, output) { }
)

为正文中的每个选项卡显示不同的右侧边栏更容易。否则,您只能在右侧边栏上显示5个选项卡。更容易为正文中的每个选项卡显示不同的右侧边栏。否则,您只能在右侧边栏上使用5个选项卡。