单击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个选项卡。