dictionary/get_cow.R

In vincentarelbundock/countrycode: Convert Country Names and Country Codes

source(here::here('dictionary/utilities.R'))

get_file <- function(web) {
    tmp <- tempfile()
    download.file(web, tmp, quiet = TRUE)
    out <- read.csv(tmp) %>%
           setNames(tolower(names(.))) # normalize colnames
    unlink(tmp)
    return(out)
}

codes <- get_file('http://www.correlatesofwar.org/data-sets/cow-country-codes/cow-country-codes')
panel <- get_file('http://www.correlatesofwar.org/data-sets/state-system-membership/system2016')

out <- full_join(codes, panel, by = c('ccode', 'stateabb')) %>%
       mutate(country = statenme) %>%
       select(country, cowc = stateabb, cown = ccode, cow.name = statenme, year) %>%
       # overlapping years; pick one arbitrarily
       filter((year != 1990) | (cowc != 'GFR')) %>% # Germany vs. West Germany
       unique # duplicates in original files

out %>% write_csv('dictionary/data_cow.csv', na = "")