Nicolabo

shinyServer(function(input, output, session) {
  
  tmpData <- reactive({
    modFlights %>% 
      filter(name %in% input$carrierName)
  })
  
  output$delayRange <- renderUI({
    
    max_delay <- max(tmpData()$dep_delay)

Nicolabo

test