require(ShinyHelper)
shinyServer(function(input, output) {
# shinyServer content:
output$distplot <- renderPlot({
x <- faithful[, 2] # Old Faithful Geyser data
bins <- seq(min(x), max(x), length.out = input$bins + 1)
hist(x, breaks = bins, col = "darkgray", border = "white")
})
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.