#' Pulling the SFO passengers data
#'
data_refresh <- function(){
`%>%` <- magrittr::`%>%`
# API URL and query
url1 <- "https://data.sfgov.org/resource/rkru-6vcg.json?$order=:id&$limit=100000"
SFOpassengers <- httr::GET(url = url1) %>%
httr::content("text") %>%
jsonlite::fromJSON()
SFOpassengers$operating_airline <- ifelse(SFOpassengers$operating_airline == "United Airlines - Pre 07/01/2013",
"United Airlines",
SFOpassengers$operating_airline)
usethis::use_data(SFOpassengers, overwrite = TRUE)
url2 <- "https://data.sfgov.org/resource/fpux-q53t.json?$order=:id&$limit=100000"
SFOlanding <- httr::GET(url = url2) %>%
httr::content("text") %>%
jsonlite::fromJSON()
SFOlanding$operating_airline <- ifelse(SFOlanding$operating_airline == "United Airlines - Pre 07/01/2013",
"United Airlines",
SFOlanding$operating_airline)
usethis::use_data(SFOlanding, overwrite = TRUE)
}
# extract_sfo <- function(operating_airline)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.