r - 有没有办法默认折叠侧边栏

Question

有没有办法默认折叠侧边栏。现在，一旦应用程序打开，它就会默认显示。我们可以让它默认折叠吗

library(shiny)
library(shinyjs)

ui <- fluidPage(
  useShinyjs(),
  navbarPage("",
             tabPanel("tab",
                      div( id ="Sidebar",sidebarPanel(
                      )),
                      
                      
                      mainPanel(actionButton("toggleSidebar", "Toggle sidebar")
                      )
             )
  )
)

server <-function(input, output, session) {
  observeEvent(input$toggleSidebar, {
    shinyjs::toggle(id = "Sidebar")
  })
}

shinyApp(ui, server)

Answer 1

这是一个基于 UI 的解决方案，可以避免闪烁 sidebarPanel启动时:

library(shiny)
library(shinyjs)

ui <- fluidPage(useShinyjs(),
                navbarPage("",
                           tabPanel(
                             "tab",
                             div(id = "sidebarWrapper", sidebarPanel(), style = "display: none;"),
                             mainPanel(actionButton("toggleSidebar", "Toggle sidebar"))
                           )))

server <- function(input, output, session) {
  observeEvent(input$toggleSidebar, {
    shinyjs::toggle(id = "sidebarWrapper")
  })
}

shinyApp(ui, server)

PS:使用 shinyjs::hidden(div(<...>)) 也可以实现同样的效果.