Масштабирование блестящих участков до высоты окна

Я хочу масштабировать блестящий сюжет до высоты окна. Этот связанный вопрос SO использует только абсолютные спецификации высоты в пикселях, когда предпочтительнее height = 100%. Я отмечаю в документации, что absolutePanel может достичь этого с помощью аргументов top, bottom, left, right, но затем вы потеряете боковую панель, и в любом случае график (при масштабировании по ширине), кажется, игнорирует доступную высоту.

Я предполагаю, что это связано с html quirk, что означает, что вам нужно получить высоту с переменной 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")
  )
)

Ответ 1