# get and modify DT.country.r

## Pulls DT.country and then adds a "ALL COUNTRIES" row


DT.country <- get_dim_country(refresh=getPfm() != "Darwin", assign.to.envir=FALSE)

if (9999 %ni% DT.country$countryid)
  DT.country <- rbind(DT.country, data.table(countryid=9999, country_name="Global Across All Countries", country_code="global"), fill=TRUE)

setkeyIfNot(DT.country, "country_code", verbose=FALSE)