使绘图高度适应发光仪表板中的任何屏幕

Question

是否可以将包含在框内的闪亮仪表板中所有图的高度调整为任何屏幕分辨率。您可以尝试使用css，但地块越来越大。如果我手动降低100vh的分辨率，那么它们会更合适，但我希望有一个通用的解决方案，因为结果因屏幕分辨率而异。

library(shiny)
library(shinydashboard)
shinyApp(
  ui = dashboardPagePlus(
    header = dashboardHeaderPlus(
      enable_rightsidebar = TRUE,
      rightSidebarIcon = "gears"
    ),
    sidebar = dashboardSidebar(),
    body = dashboardBody(
      tags$head(tags$style(".shiny-plot-output{height:100vh !important;}")),
      navbarPage("Navbar!",
                 tabPanel("Plot",
                          boxPlus(
                            plotOutput("plot1")
                          )

                 ),
                 tabPanel("Summary",
                          boxPlus(
                            plotOutput("plot2")
                          )
                 ))
    ),
    title = "Right Sidebar"
  ),
  server = function(input, output) {
    output$plot1 <- renderPlot({
      plot(cars, type=input$plotType)
    })
    output$plot2 <- renderPlot({
      plot(cars, type=input$plotType)
    })

  }
)