css - 如何在 Shiny 中设置动态流体行高度

Question

我正在尝试创建一个包含两行的页面，其中每行的高度是窗口高度的一定百分比(比如 40% 和 60%)。尽管使用列可以轻松控制元素的宽度，但我似乎找不到类似的高度解决方案。

这是一个小示例应用程序:

library(shiny)
ui <- navbarPage('', 
  tabPanel("page 1", 
           fluidPage(
             fluidRow(
               style='height:400px',
               column(7, "text"),
               column(5, "other text")),
             fluidRow('some more text'))
  ),
  tabPanel("page 2"),
  tabPanel("page 3")
)
server <- function(input, output){}
shinyApp(ui=ui, server=server)

更改窗口宽度时，列可以很好地调整。行高在这里设置为 400 像素，但我希望它是窗口高度的 40%。到目前为止，我发现的所有解决方案都涉及设置固定高度。

Answer 1

使用参数 vh (1 vh 是视口(viewport)高度的 1%)。所以如果你改变窗口的高度，fluidRow 的高度也被改编了。

您可以找到其他 CSS单位 here .

fluidRow(style='height:40vh')