Nothing
library(shiny)
library(HH)
## Define UI for slider demo application
shinyUI(pageWithSidebar(
## Application title
headerPanel("Population Pyramids"),
## Sidebar with sliders that demonstrate various available options
sidebarPanel(
## Simple integer interval
# Animation with custom interval (in ms) to control speed, plus looping
sliderInput("year", "Year:",
min=1900, max=1970, value=1900,
sep="",
animate=animationOptions(interval=1000, loop=TRUE)),
textInput("px.height", "Pixel Height", "600", "150px")
),
## Display the generated Population Pyramid
mainPanel(
uiOutput("plotOutput")
## plotOutput("USagePyramidPlot", width="90%", height=input$px.height)
)
))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.