numericInput(inputId = "num", label = "Choose a number", value=25, min=1, max=100) sliderInput(inputId = "nbins", label = "Select number of bins", value=10, min=1, max=100) data <- reactive({ rnorm(input$num) }) renderPlot({ hist(data(), breaks = input$nbins) })
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.