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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.