country_list.R

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

library(rvest)
library(dplyr)
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
eu_countries <- c_tables[[2]] %>% 
  select(code = Code, name = English) %>% 
  mutate(label = eurostat::label_eurostat(code, dic = "geo"))

efta_countries <- c_tables[[3]] %>% 
  select(code = Code, name = English) %>% 
  mutate(label = eurostat::label_eurostat(code, dic = "geo"))

eu_candidate_countries <- c_tables[[4]] %>% 
  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() %>% 
  {data_frame(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)