Shiny/noisyapp.R

In mrmoleje/noisyrap:

library(shiny)

ui <- fluidPage(sliderInput(inputId = "number",
                            label = "Choose number of complaints",
                            value =25, min =1, max=2000),
                plotOutput("graph"))

server <- function(input, output) {
  output$graph <- renderPlot({
    title <- "NYC Noise Complaints graph"
    plot(rnorm(input$number), main=title())
    })
}

shinyApp(ui = ui, server = server)