# Sidebar with controls to select a dataset and specify
# the number of observations to view
sidebarPanel(
selectInput("dataset", "Choose a dataset:",
choices = c("rock", "pressure", "cars")),
numericInput("obs", "Observations:", 10)
)
Run the code above in your browser using DataLab