以编程方式在 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)
我正在使用 R shiny 仪表板,想知道我是否可以 collapse/show 侧边栏带有一个额外的按钮,就像侧边栏顶部已经存在的按钮一样。 这可能吗?
干杯
您可以通过 shinyjs
:
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)