dictionary/get_cow_cs.R

In YTLogos/countrycode: Convert Country Names and Country Codes

get_cow_cs = function() {
    source('code/get_cow.R')
    out = get_cow()
    cs = out %>% 
		 dplyr::arrange(country.name.en.regex, year) %>%
         dplyr::select(-year) %>% 
         dplyr::group_by(country.name.en.regex) %>%
         dplyr::do(tail(., 1)) 
    return(cs)
}