R/station.R

In rwright88/normals: Climate Normals Data

rec_station <- function(x) {
  file <- "ftp://ftp.ncdc.noaa.gov/pub/data/normals/1981-2010/station-inventories/allstations.txt"
  pos <- readr::fwf_positions(
    start = c(1, 39),
    end = c(11, 72),
    col_names = c("id", "name")
  )
  types <- "cc"
  data <- readr::read_fwf(file, col_positions = pos, col_types = types)
  data$name <- tolower(data$name)
  data$name[match(x, data$id)]
}