library("shiny")
## The UI sliderInput("n", "Sample size", 10, 50, 25)
renderPlot({plot(rnorm(input$n))}) renderText({ max(rnorm(input$n)) })
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.