Flexible height of plot in shiny app

Question

I´m searching for a method to change the height parameter in plotOutput() depending on an input$.. value.

Any suggestions?

Samuel

Answer 1

Here you go:

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