library(shiny)
shinyUI(pageWithSidebar(
headerPanel("Hello, Shiny!"),
sidebarPanel(
sliderInput("obs", "Number of observations:",
min = 1,
max = 1000,
value = 500)),
mainPanel(
plotOutput("distPlot")))
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.