css - 如何定义shinydashboard开始包装元素并隐藏侧边栏的屏幕宽度？

Question

Shinydashboard 有一个响应式布局，它开始堆叠元素，并在减小屏幕宽度时的某个点。我想知道是否以及如何定义这一点，因为默认值不适合我的布局。

下面的例子说明了这个问题。在响应式布局决定隐藏侧边栏并堆叠 UI 元素之前，内容元素会被压缩，超出了优雅和实用的程度。

我想这与这些默认值有关。

Answer 1

我用这种解决方法解决了这类问题：

ui <- tagList(
  tags$style("html,body{background-color: white;}
                .container{
                    width: 100%;
                    margin: 0 auto;
                    padding: 0;
                }
               @media screen and (min-width: 700px){
                .container{
                    min-width: 1850px;
                    max-width: 1920px;
                }
               }
             "),
tags$div(class="container",
  dashboardPage( title="min and max width"
    ,dashboardHeader(title = p("app header") )
    ,dashboardSidebar(
    )
    ,dashboardBody(
      tags$head(
        tags$style(
          "
          body{
              height: auto;
              margin: auto;
              overflow-x: auto;
          }"
        )
    ) # head
    ) # dashboardbody
  )
)
)
server<- function(input, output, session) {}

shinyApp(ui,server)

这说明了页面的最小宽度（最大宽度是可选的），并在需要时添加滚动条：(>700 <1850)。