R/allStations.R

In mpiccirilli/weatheR: Download, Transform, and plot NOAA ISD weather data

#' Get full list of NOAA ISD stations
#'
#' This function is included in case the list of stations is updated.  The full list of stations
#' is included in the package under the name 'station.list'.
#'
#' @return This function will download the full list of NOAA ISD stations to a variable.
#' @examples
#' \dontrun{
#' station.list <- allStations()
#' }
#' @export


allStations <- function()
{
  isd <- "ftp://ftp.ncdc.noaa.gov/pub/data/noaa/isd-history.csv"
  response <- suppressWarnings(GET(isd))
  all <- read.csv(text=content(response, "text"), header = TRUE)
  colnames(all)[c(3, 9)] <- c("NAME", "ELEV")
  all <- all[!is.na(all$LAT) & !is.na(all$LON),]
  return(all)
}