闪亮的应用程序中的情节高度灵活

Question

我正在寻找一种根据input$..值更改plotOutput()的height参数的方法。

有什么建议么？

塞缪尔

Answer 1

干得好：

library(shiny)

shinyApp(
  ui = fluidPage(
    numericInput("height", "height", 300),
    plotOutput("plot", height = "auto")
  ),

  server = function(input, output, session) {
    output$plot <- renderPlot({
      plot(1:10)
    },
    height = function(x) input$height)
  }
)