library(shiny)

# Rely on the 'WorldPhones' dataset in the datasets
# package (which generally comes preloaded).
library(nycflights13)

# Define a server for the Shiny app
shinyServer(function(input, output) {

  # Fill in the spot we created for a plot
  output$vuelos <- renderPlot({

    # Render a barplot
    barplot(flights[,input$Meses]*1000,
            main=input$Meses,
            ylab="Número de vuelos",
            xlab="Origen")
  })
})