Shinydashboard Tabbox Height

Question

Я пытаюсь создать tabBox, который охватывает весь mainPanel. Я могу получить ширину, чтобы охватить весь экран, но я не могу заставить высоту сделать то же самое. Я не хочу использовать абсолютные значения в пикселях (или некоторых других устройствах), так как я ожидаю, что приложение будет использоваться на разных экранах.

я играл на примере и example модифицированного tabBox как ниже

fluidRow(
     tabBox(
      title = "First tabBox", 
      # The id lets us use input$tabset1 on the server to find the current tab 
      id = "tabset1", height = "450px", 
      tabPanel("Tab1", "First tab content"), 
      tabPanel("Tab2", "Tab content 2"), 
      width = 12 
     ), 
     height = '20%', 
     width = 12 
    ) 

Answer 1

Вы можете использовать vh CSS блок, который определяется как 1% viewport height, а затем в основном следуют примеру в this answer где установить относительную высоту в CSS:

fluidRow(
    tabBox(
    tags$head(
     tags$style(HTML(" #tabBox { height:90vh !important; } ")) 
    ), 
    id="tabBox", 
    title = "tabBox", 
    width = 12 
    ) 

вы, конечно, можете также поместить это во внешнем файле CSS, особенно если вы собираетесь сделать больше, чем один из этих трюков css. При 100% идет немного над нижним краем из-за заголовка. Кажется, что работает около 90%.