閃亮的應用程序中的情節高度靈活

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