R/utils.R

In ropenscilabs/ozflights: Get Australian Flight Data, 1985-2016

#' @importFrom magrittr %>%
NULL

globalVariables(
  c(
    "AIRPORT",
    "Year",
    "INBOUND...5",
    "OUTBOUND...6",
    "INBOUND...8",
    "OUTBOUND...9",
    "type",
    "count",
    "airport",
    "year",
    "AIRPORT NAME",
    "AIRPORT NAME_1",
    "CODE",
    "CODE_1",
    "DEG",
    "DEG_1",
    "DIR", "DIR_1", "KM", "MIN",
    "MIN_1", "NM", "SEC", "SEC_1", "SM", "airport_code", "direction", "freight_inbound",
    "freight_outbound", "lat_deg", "lat_dir", "lat_min", "lat_sec", "long_deg", "long_dir",
    "long_min", "long_sec", "mail_inbound", "mail_outbound", "tonnage"
  )
)

cleaner <- function(x){
  dplyr::select(x, AIRPORT, Year, INBOUND...5, OUTBOUND...6, INBOUND...8, OUTBOUND...9) %>%
    dplyr::filter(!is.na(AIRPORT)) %>%
    dplyr::rename(
      airport = AIRPORT,
      year = Year,
      dom_inbound     = INBOUND...5,
      dom_outbound    = OUTBOUND...6,
      int_inbound     = INBOUND...8,
      int_outbound    = OUTBOUND...9
    ) %>%
    tidyr::gather(type, count, -airport, -year) %>%
    dplyr::mutate(
      domest = grepl("dom_", type),
      type = gsub("dom_", "", type),
      type = gsub("int_", "", type)
    )
}

# function for converting dms to decimal degrees
convert_latlong <-  function(deg, min, sec, direction) {
   ifelse(direction == "W" | direction == "S",
          (deg + min/60 + sec/360)*-1,
          (deg + min/60 + sec/360)
          )

}