Как установить динамическую высоту liquidRow в 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 составляет 1% от высоты области просмотра).Поэтому, если вы измените высоту окна, высота fluidRow также будет изменена.

Здесь вы можете найти другие CSS единицы .

fluidRow(style='height:40vh')