以编程方式在闪亮仪表板中切换侧边栏菜单的显示

Posted 2023-03-24

【中文标题】以编程方式在闪亮仪表板中切换侧边栏菜单的显示

【英文标题】：Toggle display of sidebar menu in shinydashboard programmatically

【发布时间】：2022-01-18 12:33:30

【问题描述】：

我正在使用 R 闪亮的仪表板，想知道是否可以使用附加按钮折叠/显示侧边栏，就像侧边栏顶部已经存在的按钮一样。 这可能吗？

干杯

【参考方案1】：

您可以通过shinyjs在正文中添加/删除所需的css类：

library(shiny)
library(shinyjs)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    shinyjs::useShinyjs(),
    actionButton("toggle_btn", "Toggle sidebar")
  )
)

server <- function(input, output, session) 
  observeEvent(input$toggle_btn, 
    shinyjs::toggleClass(selector = "body", class = "sidebar-collapse")
  )


shinyApp(ui, server)