inst/shiny/runEXP/server.R

In unimi-dse/531ababf: Brief analysis of nycflights13 dataset

server <- function(input, output){
  # grab data
  flights <- read.csv("https://query.data.world/s/kho6cpswdlcnjancrj53o4e3wwv365", header = TRUE, stringsAsFactors = FALSE)

  # filter based on inputs
  df <- reactive({
    flights[flights$origin == input$origin & flights$month == input$month & flights$day == input$day, ]
  })

  # histogram of arrival delays
  output$plot1 <- plotly::renderPlotly({
    plotly::plot_ly(df(), x = ~arr_delay, type = "histogram")
  })

  # histogram of distance
  output$plot2 <- plotly::renderPlotly({
    plotly::plot_ly(df(), x = ~distance, type = "histogram")
  })
}