# 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