ui <- fluidPage( numericInput("samplesize", label = "Sample size", value = 100, step=100), plotOutput("histogram"))server <- function(input, output, session) { output$histogram <- renderPlot(qplot(rnorm(input$samplesize)))}shinyApp(ui, server)