r - 使用 Shiny 仪表板 [R] 设置框的最小/最大宽度

Question

我正在使用 shinydashboard 来显示一些我正在放入框中的图。我发现在默认宽度下，当应用程序未最大化时，框太小了。如果我改变宽度，那么我可以在打开应用程序时让它们成为正确的大小，但是当窗口最大化时它们太大了，看起来被拉伸(stretch)了，或者至少是不必要的大。这是因为宽度参数是动态的，因此会响应屏幕大小。

理想情况下，我想保留这个动态元素，但为框设置最小和最大宽度。如果那是不可能的，那么我想设置一个固定的宽度。

可能这需要一些我缺乏的 css 知识!

非常精简的示例代码:

library("shiny")
library("shinydashboard")

sidebar <- dashboardSidebar()

body <- dashboardBody(
            fluidRow(
              box(width = 12)
              )
            )


ui <- dashboardPage(dashboardHeader(title = "Example"),
                sidebar,
                body
                )

server <- function(input, output) {
}

shinyApp(ui, server)

Answer 1

我倾向于解决这类布局问题通常是利用 Bootstrap 的 grid system .您可以将其应用于您的示例，如下面的代码片段所示。请注意，我添加了第二个框以更好地说明行为，您可以使用类参数来使其与您想要的行为相匹配。希望这可以帮助!

library("shiny")
library("shinydashboard")

sidebar <- dashboardSidebar()

body <- dashboardBody(
  fluidRow(
    div(class = "col-sm-12 col-md-6 col-lg-4",
    box(width = '100%', title= 'This is the first test box')
    ),
    div(class = "col-sm-12 col-md-6 col-lg-4",
        box(width = '100%', title= 'This is the second test box')
    )
  )
)


ui <- dashboardPage(dashboardHeader(title = "Example"),
                    sidebar,
                    body
)

server <- function(input, output) {
}

shinyApp(ui, server)