
Create a Shiny UI that contains a header with the application title, a sidebar for input controls, and a main area for output.
pageWithSidebar(headerPanel, sidebarPanel, mainPanel)
The headerPanel with the application title
The sidebarPanel containing input controls
The mainPanel containing outputs
A UI defintion that can be passed to the shinyUI function
# NOT RUN {
# Define UI
pageWithSidebar(
# Application title
headerPanel("Hello Shiny!"),
# Sidebar with a slider input
sidebarPanel(
sliderInput("obs",
"Number of observations:",
min = 0,
max = 1000,
value = 500)
),
# Show a plot of the generated distribution
mainPanel(
plotOutput("distPlot")
)
)
# }
Run the code above in your browser using DataLab