折叠闪亮仪表板侧边栏宽度大

Question

我试图隐藏一个宽大的shinydashboard侧边栏。问题是当我增加宽度时，侧边栏不会完全脱离屏幕。

以下是我要解决的问题示例;

## R Code ##
library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(tags$head(includeCSS("www/custom.css")))
)

server <- function(input, output) { }

shinyApp(ui, server)

，CSS文件是

## CSS ##
.left-side, .main-sidebar {
   width: 50vw;
}

这是未折叠的侧边栏：

这是边栏折叠：

正如你所知，它没有隐藏:(。对于如何解决这个问题有什么建议吗？

Answer 1

利用ccss中的display属性。

所以不要改变宽度，而是显示：none; 这将调整您的其他元素并相应地移动。 请参考此wc3链接，例如：

https://www.w3schools.com/css/css_display_visibility.asp