shinyUI(pageWithSidebar(
headerPanel("Dynamic number of plots"),
sidebarPanel(
sliderInput("n", "Number of plots", value=0, min=0, max=5)
),
mainPanel(
# This is the dynamic UI for the plots
uiOutput("plots")
)
))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.