R 将闪亮打印缩放到窗口高度

我想将一个有光泽的绘图缩放到窗口的高度。当

高度=100%时，这仅使用像素的绝对高度规格。我在文档中注意到，
absolutePanel
可以通过其
上、下、左、右
参数来实现这一点，但随后会丢失侧面板，并且在任何情况下，绘图（缩放到宽度时）似乎忽略了可用高度

我猜这与html的怪癖有关，这意味着您需要使用javascript
innerHeight
变量获取高度。但我不清楚如何在shiny中实现一个解决方案，以利用
ui.R
。谢谢你的指点

用于开发的基本应用程序模型：

ui.R

library(shiny)
shinyServer(
  function(input, output) {
    output$myplot <- renderPlot({
      hist(rnorm(1000))
    })
  }
)

library(shiny)
pageWithSidebar(
  headerPanel("window height check"),
  sidebarPanel(),
  mainPanel(
    plotOutput("myplot")
  )
)

使用CSS3。以视口单位声明高度。
您应该能够使用
plotOutput
中的
height
参数声明它们，但是
shinny:：validatecsUnit
无法识别它们，因此您可以在样式标题中声明它们：

library(shiny)
runApp(
  list(server= function(input, output) {
    output$myplot <- renderPlot({
      hist(rnorm(1000))
    })
  }
  , ui = pageWithSidebar(
    headerPanel("window height check"),
    sidebarPanel(
      tags$head(tags$style("#myplot{height:100vh !important;}"))
    ),
    mainPanel(
      plotOutput("myplot")
    )
  )
  )
)

库（闪亮）
runApp(
列表（服务器=功能（输入、输出）{
output$myplot我遇到了类似的问题，但由于我使用的是
navbarPage
，我似乎无法让CSS正常工作，我尝试了这种方法，但在绘图中添加了一个
height=400px
，它似乎覆盖了我在
标记
函数中指定的高度。有什么线索吗？只是为了拯救一个不太懂CSS的人：我如果您有多个选项卡，则使用CSS类
shinny plot output
而不是ID，例如
tags$head（tags$style（“.shinny plot output{height:100vh！important；}”）
将此设置应用于所有选项卡