inst/shiny-examples/myapp/ui.R

In floatgreen/weatherstar: A package to get and visualize the weather data of airports in the US

data(package = "weatherstar", "all_code")
codes <- all_code$Code

ui <- fluidPage(

  titlePanel("Plot Temperature History"),

  sidebarPanel(
    selectInput("code", "airport code", choices = codes  )
  ),

  mainPanel(
    plotOutput("plot_temp"),
    dataTableOutput("table")
  )
)