R/functions.R

In RamiKrispin/SFOpassengers: The Monthly Number of Passengers in SFO Airport

#' 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)