data-raw/country_list.R

In ropengov/eurostat: Tools for Eurostat Open Data

# Code to get countries and their codes for selected country groups.

library(rvest)
library(dplyr)
library(devtools)
load_all()

country_html <- read_html("http://ec.europa.eu/eurostat/statistics-explained/index.php/Tutorial:Country_codes_and_protocol_order")
c_tables <- country_html %>%
  html_table()

# Country data.tables with code and name
# Codes, names and protocol order of European Union (EU) Member States
eu_countries <- c_tables[[2]] %>%
  select(code = Code, name = English) %>%
  mutate(label = eurostat::label_eurostat(code, dic = "geo"))

# Codes and names of EFTA countries
efta_countries <- c_tables[[3]] %>%
  select(code = Code, name = English) %>%
  mutate(label = eurostat::label_eurostat(code, dic = "geo"))

# United Kingdom
united_kingdom <- c_tables[[4]] %>%
  select(code = Code, name = English) %>%
  mutate(label = eurostat::label_eurostat(code, dic = "geo"))

# Codes and names of candidate countries
eu_candidate_countries <- c_tables[[5]] %>%
  select(code = Code, name = English) %>%
  mutate(label = eurostat::label_eurostat(code, dic = "geo"))

# Euro area countries
ea_country_html <- read_html("http://ec.europa.eu/eurostat/statistics-explained/index.php/Glossary:Euro_area")

ea_countries <- ea_country_html %>%
  html_table(fill = TRUE) %>%
  unlist() %>%
  {
    tibble(name = grep("^[[:alpha:]]", ., value = TRUE))
  } %>%
  inner_join(eu_countries, .) %>% # Get eu order and codes
  mutate(label = eurostat::label_eurostat(code, dic = "geo"))

# Eurostat data set with ID tgs00026
tgs00026 <- get_eurostat("tgs00026", time_format = "raw")

print("save datasets")
usethis::use_data(eu_candidate_countries, eu_countries, ea_countries, efta_countries, tgs00026, overwrite = TRUE, internal = FALSE)