Skip to content

Instantly share code, notes, and snippets.

@wfkwan

wfkwan/server.R

Created Oct 18, 2020
Embed
What would you like to do?
output$delay_time <- renderPlot({
data <- setNames(annotate_agg2_es_result((es$search("kibana_sample_data_flights", delay_type_query))),
c("time", "airline", "ndelays"))
data$time <- as.POSIXct(data$time, format="%Y-%m-%dT%H:%M:%S")
data <- data[(data$time >= input$delay_time_range[1]) & (data$time <= input$delay_time_range[2]), ]
ggplot(data, aes(x=time, y=ndelays, fill=airline)) + geom_bar(stat="identity") + theme_minimal()
})
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.