data-raw/pollutants_id.R

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

## code to prepare `pollutants_id` dataset goes here

library(tidyverse)
library(readr)

temp <- tempfile()
download.file("http://dd.eionet.europa.eu/vocabulary/aq/pollutant/csv", temp)

pollutants_id <- read_csv(temp) %>%
  mutate(id = as.numeric(str_remove(URI, "http://dd.eionet.europa.eu/vocabulary/aq/pollutant/"))) %>%
  select(id, Notation, Label) %>%
  rename_all(~ tolower(.)) %>%
  rename(code = notation) %>%
  arrange(id)

usethis::use_data(pollutants_id)