Task 2

ui.R

fluidPage(
  titlePanel(title = "Introduction to Shiny"),
  sidebarPanel(
    selectInput("carrierName", 
                label = "Select carrier:",
                choices = sort(chosenCarrier$name),
                selected = sort(chosenCarrier$name)[1],
                multiple = T),
    sliderInput('delayFlightRange',
                label = "Choose minutes range of delay flights:",
                min = 0, max = 1000, value = c(0, 1000), step = 5),
    numericInput("distance_val", label = "Flight distance longer than (miles):", value = 500)
  ),
  mainPanel(
    tabsetPanel(
      tabPanel("Delay over day"),
      tabPanel("Explore data")  
    )
  )
)