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