Task 6

server.R

shinyServer(function(input, output, session) {
  
  output$delayRange <- renderUI({
    
    max_delay <- max(modFlights$dep_delay)
    
    sliderInput('delayFlightRange',
                label = "Choose delay range (minutes):",
                min = 0, max = max_delay,
                value = c(0, max_delay), step = 10)
  })
  
  dayFilteredData <- reactive({
    modFlights %>% 
      filter(name %in% input$carrierName) %>% 
      group_by(name, hour) %>% 
      summarise(delayed_flight_perc = sum(dep_delay > input$delayFlightRange[1] & 
                                            dep_delay < input$delayFlightRange[2] & 
                                            distance > input$distance_val) / 
                  sum(distance > input$distance_val))
  })
  
  output$ddelay_plot <- renderPlot({
    
    ggplot(dayFilteredData(), aes(hour, delayed_flight_perc, fill = name)) +
      geom_col(position = 'dodge') +
      theme_hc(base_size = 18) +
      scale_fill_hc() +
      xlab("Departure hour") +
      ylab("Percentage of delayed flights") +
      scale_y_continuous(labels = scales::percent) +
      scale_x_continuous(limits = c(0,24), breaks = seq(0, 24, 2)) +
      guides(fill=guide_legend(title=""))
    
  })
  
  output$table <- renderTable({
    dayFilteredData() %>% 
      mutate(
        delayed_flight_perc = scales::percent(delayed_flight_perc)
      )
  })
})

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),
    numericInput("distance_val", label = "Flight distance longer than (miles):", value = 500),
    uiOutput("delayRange")
  ),
  mainPanel(
    tabsetPanel(
      tabPanel("Delay over day",
               plotOutput('ddelay_plot')
      ),
      tabPanel("Explore data",
               tableOutput("table")
      )  
    )
  )
)