data-raw/airports.R

In jayleetx/nycflights: Flights that Departed NYC in the Last Year

library(dplyr)
library(readr)
library(purrr)
library(RCurl)

if (!file.exists("data-raw/airports.dat")) {
  if (url.exists("https://raw.githubusercontent.com/jpatokal/openflights/master/data/airports.dat")) {
    download.file(
      "https://raw.githubusercontent.com/jpatokal/openflights/master/data/airports.dat",
      "data-raw/airports.dat")
  } else stop("Can't access `airports` link in 'data-raw/airports.R'")
}

raw <- read_delim("data-raw/airports.dat", ",",
  col_names = c("id", "name", "city", "country", "faa", "icao", "lat", "lon", "alt", "tz", "dst", "tzone", "type", "source"),
  escape_double = FALSE, na = c("", "NA", "\\N")
)


airports <- raw %>%
  filter(country == "United States", faa != "") %>%
  select(faa, name, lat, lon, alt, tz, dst, tzone) %>%
  group_by(faa) %>% slice(1) %>% ungroup() # take first if duplicated


# Verify the results
library(ggplot2)
airports %>%
  filter(lon < 0) %>%
  ggplot(aes(lon, lat)) +
  geom_point(aes(colour = factor(tzone)), show.legend = FALSE) +
  coord_quickmap() +
  theme_void()
try(ggsave("data-raw/airports.svg", width = 8, height = 6), silent = TRUE)

write_csv(airports, "data-raw/airports.csv")
save(airports, file = "data/airports.rda", compress = "xz")