У меня есть панель инструментов, созданная с помощью shinydashboardPlus()
. Я хотел бы знать, могу ли я отображать правую боковую панель только тогда, когда я нахожусь в tabPanel с именем «Первый».
#app.r
library(shinydashboardPlus)
library(shiny)
library(shinydashboard)
shinyApp(
ui = dashboardPagePlus(
header = dashboardHeaderPlus(
enable_rightsidebar = TRUE,
rightSidebarIcon = "gears"
),
sidebar = dashboardSidebar(
selectInput("sel","Select",choices=c("FIRST","SECOND"),selected = "FIRST")
),
body = dashboardBody(
tabsetPanel(id="T",type="tabs",
tabPanel("First"),
tabPanel("Second"))
),
rightsidebar = rightSidebar(
background = "dark",
rightSidebarTabContent(
id = 1,
title = "Tab 1",
icon = "desktop",
active = TRUE
)
),
title = "Right Sidebar"
),
server = function(input, output) {
}
)