分享程序员开发的那些事...
更新时间：2023-11-27 22:00:10
我对仪表板不是很熟悉，因为我从来没有构建过仪表板，但是快速查看一下，似乎当单击打开/隐藏侧边栏按钮时，所有发生的事情都是sidebar-collapse类被添加/删除到<body>标记中。也许会有更多我不知道的事情发生，但这似乎是最明显的事情。
这样您就可以轻松地使用shinyjs包(免责声明：我是作者)添加/删除该类
library(shiny)
library(shinydashboard)
library(shinyjs)
shinyApp(
ui =
dashboardPage(
dashboardHeader(),
dashboardSidebar(),
dashboardBody(
shinyjs::useShinyjs(),
actionButton("showSidebar", "Show sidebar"),
actionButton("hideSidebar", "Hide sidebar")
)
),
server = function(input, output, session) {
observeEvent(input$showSidebar, {
shinyjs::removeClass(selector = "body", class = "sidebar-collapse")
})
observeEvent(input$hideSidebar, {
shinyjs::addClass(selector = "body", class = "sidebar-collapse")
})
}
)