将闪亮的图缩放到窗口高度

Question

我想将闪亮的绘图缩放到窗口的高度。这个related SO question 仅使用以像素为单位的绝对高度规范，而height = 100% 更可取。我在文档中注意到absolutePanel 可以通过其top, bottom, left, right 参数实现这一点，但是您会丢失侧面板，并且无论如何该图（在缩放到宽度时）似乎忽略了可用高度。

我猜这与 html 怪癖有关，这意味着您需要使用 javascript innerHeight 变量来获取高度。但我不清楚如何在闪亮中实施解决方案以让ui.R 使用它。感谢任何指点。

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

ui.R

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

server.R

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

Answer 1

使用 CSS3。以视口单位声明您的身高 http://caniuse.com/#feat=viewport-units 。 您应该能够使用plotOutput 中的height 参数声明它们，但是shiny::validateCssUnit 无法识别它们，因此您可以在样式标头中声明它们：

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")
    )
  )
  )
)

这在闪亮的浏览器中不起作用，但在主浏览器中应该可以正常工作。