countrygrps <- fread(as.path(dataDir, "Country Groups.csv"))


## Clean Names
# setnames(countrygrps, gsub("COUNTRY", "Country", names(countrygrps)))
setnames(countrygrps, gsub(" ", "_", topropper(names(countrygrps))))
setkey(countrygrps, Country_Code)


raw <- lapply(raw, function(D) {
						setkey(D, Country)[countrygrps, `:=`(region_group=i.region_group, Country_Broad_Group=i.Country_Broad_Group)]
				})

raw