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

Question

我正在搜索一种方法，根据height值更改plotOutput()中的input$..参数。

有什么建议吗？

塞缪尔

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