R/ep_metadata.R

In vincentbagilet/europollution: R wrapper to access air pollution data from the European Environment Agency

#' Download sampling point metadata
#'
#' @return A tibble containing the sampling point metadata
#' @examples
#' ep_metadata()
#'
#' @export
#' @importFrom readr read_delim

ep_metadata <- function() {
  temp <- tempfile()
  utils::download.file("https://discomap.eea.europa.eu/map/fme/metadata/PanEuropean_metadata.csv", temp)
  metadata <- readr::read_delim(temp, "\t", escape_double = FALSE, trim_ws = TRUE)
  unlink(temp)
  return(metadata)
}