#' Function to get Air Quality e-Reporting (AQER) countries.
#'
#' @author Stuart K. Grange
#'
#' @return Tibble.
#'
#' @examples
#'
#' # Get countries
#' data_countries <- aqer_countries()
#'
#' @export
aqer_countries <- function() {
aqer_metadata() %>%
select(country = Countrycode) %>%
distinct(country) %>%
left_join(read_country_names(), by = "country")
}
read_country_names <- function() {
dplyr::tribble(
~country, ~country_name,
"AD", "andorra",
"AE", "united_arab_emirates",
"AF", "afghanistan",
"AG", "antigua_and_barbuda",
"AI", "anguilla",
"AL", "albania",
"AM", "armenia",
"AO", "angola",
"AQ", "antarctica",
"AR", "argentina",
"AS", "american_samoa",
"AT", "austria",
"AU", "australia",
"AW", "aruba",
"AX", "aland_islands",
"AZ", "azerbaijan",
"BA", "bosnia_and_herzegovina",
"BB", "barbados",
"BD", "bangladesh",
"BE", "belgium",
"BF", "burkina_faso",
"BG", "bulgaria",
"BH", "bahrain",
"BI", "burundi",
"BJ", "benin",
"BL", "saint_barthelemy",
"BM", "bermuda",
"BN", "brunei_darussalam",
"BO", "bolivia",
"BQ", "bonaire_sint_eustatius_and_saba",
"BR", "brazil",
"BS", "bahamas",
"BT", "bhutan",
"BV", "bouvet_island",
"BW", "botswana",
"BY", "belarus",
"BZ", "belize",
"CA", "canada",
"CC", "cocos_keeling_islands",
"CD", "democratic_republic_of_the_congo",
"CF", "central_african_republic",
"CG", "congo",
"CH", "switzerland",
"CI", "cote_d_ivoire",
"CK", "cook_islands",
"CL", "chile",
"CM", "cameroon",
"CN", "china",
"CO", "colombia",
"CR", "costa_rica",
"CU", "cuba",
"CV", "cabo_verde",
"CW", "curacao",
"CX", "christmas_island",
"CY", "cyprus",
"CZ", "czechia",
"DE", "germany",
"DJ", "djibouti",
"DK", "denmark",
"DM", "dominica",
"DO", "dominican_republic",
"DZ", "algeria",
"EC", "ecuador",
"EE", "estonia",
"EG", "egypt",
"EH", "western_sahara",
"ER", "eritrea",
"ES", "spain",
"ET", "ethiopia",
"FI", "finland",
"FJ", "fiji",
"FK", "falkland_islands_malvinas",
"FM", "micronesia",
"FO", "faroe_islands",
"FR", "france",
"GA", "gabon",
"GB", "united_kingdom",
"GD", "grenada",
"GE", "georgia",
"GF", "french_guiana",
"GG", "guernsey",
"GH", "ghana",
"GI", "gibraltar",
"GL", "greenland",
"GM", "gambia",
"GN", "guinea",
"GP", "guadeloupe",
"GQ", "equatorial_guinea",
"GR", "greece",
"GS", "south_georgia_and_the_south_sandwich_islands",
"GT", "guatemala",
"GU", "guam",
"GW", "guinea_bissau",
"GY", "guyana",
"HK", "hong_kong",
"HM", "heard_island_and_mc_donald_islands",
"HN", "honduras",
"HR", "croatia",
"HT", "haiti",
"HU", "hungary",
"ID", "indonesia",
"IE", "ireland",
"IL", "israel",
"IM", "isle_of_man",
"IN", "india",
"IO", "british_indian_ocean_territory",
"IQ", "iraq",
"IR", "iran",
"IS", "iceland",
"IT", "italy",
"JE", "jersey",
"JM", "jamaica",
"JO", "jordan",
"JP", "japan",
"KE", "kenya",
"KG", "kyrgyzstan",
"KH", "cambodia",
"KI", "kiribati",
"KM", "comoros",
"KN", "saint_kitts_and_nevis",
"KP", "north_korea",
"KR", "south_korea",
"KW", "kuwait",
"KY", "cayman_islands",
"KZ", "kazakhstan",
"LA", "lao_peoples_democratic_republic",
"LB", "lebanon",
"LC", "saint_lucia",
"LI", "liechtenstein",
"LK", "sri_lanka",
"LR", "liberia",
"LS", "lesotho",
"LT", "lithuania",
"LU", "luxembourg",
"LV", "latvia",
"LY", "libya",
"MA", "morocco",
"MC", "monaco",
"MD", "moldova",
"ME", "montenegro",
"MF", "saint_martin_french_part",
"MG", "madagascar",
"MH", "marshall_islands",
"MK", "macedonia",
"ML", "mali",
"MM", "myanmar",
"MN", "mongolia",
"MO", "macao",
"MP", "northern_mariana_islands",
"MQ", "martinique",
"MR", "mauritania",
"MS", "montserrat",
"MT", "malta",
"MU", "mauritius",
"MV", "maldives",
"MW", "malawi",
"MX", "mexico",
"MY", "malaysia",
"MZ", "mozambique",
"NA", "namibia",
"NC", "new_caledonia",
"NE", "niger",
"NF", "norfolk_island",
"NG", "nigeria",
"NI", "nicaragua",
"NL", "netherlands",
"NO", "norway",
"NP", "nepal",
"NR", "nauru",
"NU", "niue",
"NZ", "new_zealand",
"OM", "oman",
"PA", "panama",
"PE", "peru",
"PF", "french_polynesia",
"PG", "papua_new_guinea",
"PH", "philippines",
"PK", "pakistan",
"PL", "poland",
"PM", "saint_pierre_and_miquelon",
"PN", "pitcairn",
"PR", "puerto_rico",
"PS", "palestine",
"PT", "portugal",
"PW", "palau",
"PY", "paraguay",
"QA", "qatar",
"RE", "reunion",
"RO", "romania",
"RS", "serbia",
"RU", "russian_federation",
"RW", "rwanda",
"SA", "saudi_arabia",
"SB", "solomon_islands",
"SC", "seychelles",
"SD", "sudan",
"SE", "sweden",
"SG", "singapore",
"SH", "saint_helena_ascension_and_tristan_da_cunha",
"SI", "slovenia",
"SJ", "svalbard_and_jan_mayen",
"SK", "slovakia",
"SL", "sierra_leone",
"SM", "san_marino",
"SN", "senegal",
"SO", "somalia",
"SR", "suriname",
"SS", "south_sudan",
"ST", "sao_tome_and_principe",
"SV", "el_salvador",
"SX", "sint_maarten_dutch_part",
"SY", "syrian_arab_republic",
"SZ", "swaziland",
"TC", "turks_and_caicos_islands",
"TD", "chad",
"TF", "french_southern_territories",
"TG", "togo",
"TH", "thailand",
"TJ", "tajikistan",
"TK", "tokelau",
"TL", "timor_leste",
"TM", "turkmenistan",
"TN", "tunisia",
"TO", "tonga",
"TR", "turkey",
"TT", "trinidad_and_tobago",
"TV", "tuvalu",
"TW", "taiwan",
"TZ", "tanzania",
"UA", "ukraine",
"UG", "uganda",
"UM", "united_states_minor_outlying_islands",
"US", "united_states_of_america",
"UY", "uruguay",
"UZ", "uzbekistan",
"VA", "holy_see",
"VC", "saint_vincent_and_the_grenadines",
"VE", "venezuela",
"VG", "virgin_islands_british",
"VI", "virgin_islands_us",
"VN", "viet_nam",
"VU", "vanuatu",
"WF", "wallis_and_futuna",
"WS", "samoa",
"XK", "kosovo",
"YE", "yemen",
"YT", "mayotte",
"ZA", "south_africa",
"ZM", "zambia",
"ZW", "zimbabwe"
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.