# 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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.