以编程方式在 shinydashboard 中切换侧边栏菜单的显示

Toggle display of sidebar menu in shinydashboard programmatically

我正在使用 R shiny 仪表板,想知道我是否可以 collapse/show 侧边栏带有一个额外的按钮,就像侧边栏顶部已经存在的按钮一样。 这可能吗?

干杯

您可以通过 shinyjs:

在正文中添加/删除所需的 css class
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)