R/lookup_tables.R

In mountainMath/CanCovidData: Access Canadian and International COVID-19 Data

health_geos_hr_lookup <- c(
  "Calgary" = "4832",
  "Edmonton" = "4834",
  "Central" = "4833",
  "North" = "4835",
  "South" = "4831",
  "Not Reported, Alberta"="48",
  "Vancouver Coastal" = "593",
  "Interior" = "591",
  "Fraser" = "592",
  "Island" = "594",
  "Northern" = "595",
  "Not Reported, BC" = "59",
  "Winnipeg" = "4601",
  "Interlake-Eastern" = "4603",
  "Southern Health" = "4605",
  "Prairie Mountain" = "4602",
  "Zone 1 (Moncton area)" = "1301",
  "Zone 3 (Fredericton area)" = "1303",
  "Zone 2 (Saint John area)" = "1302",
  "Zone 4 (Edmundston area)" = "1304",
  "Zone 5 (Campbellton area)" = "1305",
  "Zone 6 (Bathurst area)" = "1306",
  "Zone 7 (Miramichi area)" = "1307",
  "Labrador-Grenfell" = "1014",
  "Eastern" = "1011",
  "Western" = "1013",
  "NWT" = "6101",
  "Zone 1 - Western" = "1201",
  "Zone 4 - Central" = "1204",
  "Not Reported, Nova Scotia" = "12",
  "Zone 3 - Eastern" = "1203",
  "Zone 2 - Northern" = "1202",
  "Toronto" = "3595",
  "Middlesex-London" = "3544",
  "Durham" = "3530",
  "York" = "3570",
  "Waterloo" = "3565",
  "Peel" = "3553",
  "Sudbury" = "3561",
  "Halton" = "3536",
  "Ottawa" = "3551",
  "Simcoe Muskoka" = "3560",
  "Hamilton" = "3537",
  "Niagara" = "3546",
  "Haliburton Kawartha Pineridge" = "3535",
  "Huron Perth" = "35xx",
  "Northwestern" = "3549",
  "Grey Bruce" = "3533",
  "Peterborough" = "3555",
  "Wellington Dufferin Guelph" = "3566",
  "Kingston Frontenac Lennox & Addington" = "3541",
  "Algoma" = "3526",
  "Brant" = "3527",
  "Chatham-Kent" = "3540",
  "Hastings Prince Edward" = "3538",
  "Porcupine" = "3556",
  "Windsor-Essex" = "3568",
  "Southwestern" = "3575",
  "Timiskaming" = "3563",
  "Haldimand-Norfolk" = "3534",
  "Lambton" = "3542",
  "Leeds Grenville and Lanark" = "3543",
  "North Bay Parry Sound" = "3547",
  "Renfrew" = "3557",
  "Thunder Bay" = "3562",
  "Prince Edward Island" = "1100",
  "Montréal" = "2406",
  "Laurentides" = "2415",
  "Montérégie" = "2416",
  "Mauricie" = "2404",
  "Chaudière-Appalaches" = "2412",
  "Estrie" = "2405",
  "Lanaudière" = "2414",
  "Capitale-Nationale" = "2403",
  "Outaouais" = "2407",
  "Bas-Saint-Laurent" = "2401",
  "Laval" = "2413",
  "Nord-du-Québec" = "2410",
  "Saguenay" = "2402",
  "Abitibi-Témiscamingue" = "2408",
  "Gaspésie-Îles-de-la-Madeleine" = "2411",
  "Côte-Nord" = "2409",
  "Not Reported, Quebec" = "24",
  "Terres-Cries-de-la-Baie-James" = "2418",
  "Nunavik" = "2417",
  "Not Reported, Repatriated" = "01",
  "Saskatoon" = "4706",
  "Far North" = "47x4",
  "Regina" = "4704",
  "Not Reported, Saskatchewan" = "47",
  "Yukon" = "6001")

health_region_uid_join <- tibble::tribble(
  ~`Health Region`, ~HR_UID, ~PR_UID,
  "Not Reported, Repatriated",    "01",    "01",
  "Eastern",  "1011",    "10",
  "Central", "1012", "10",
  "Western",  "1013",    "10",
  "Labrador-Grenfell",  "1014",    "10",
  "Prince Edward Island",  "1100",    "11",
  "Not Reported, Nova Scotia",    "12",    "12",
  "Zone 1 - Western",  "1201",    "12",
  "Zone 2 - Northern", "1202", "12",
  "Zone 3 - Eastern",  "1203",    "12",
  "Zone 4 - Central",  "1204",    "12",
  "Zone 1 (Moncton area)",  "1301",    "13",
  "Zone 2 (Saint John area)",  "1302",    "13",
  "Zone 3 (Fredericton area)",  "1303",    "13",
  "Zone 4 (Edmundston area)",  "1304",    "13",
  "Zone 5 (Campbellton area)",  "1305",    "13",
  "Zone 6 (Bathurst area)", "1306", "13",
  "Zone 7 (Miramichi area)",  "1307",    "13",
  "Not Reported, Quebec",    "24",    "24",
  "Bas-Saint-Laurent",  "2401",    "24",
  "Saguenay",  "2402",    "24",
  "Capitale-Nationale",  "2403",    "24",
  "Mauricie",  "2404",    "24",
  "Estrie",  "2405",    "24",
  "Montréal",  "2406",    "24",
  "Outaouais",  "2407",    "24",
  "Abitibi-Témiscamingue",  "2408",    "24",
  "Côte-Nord",  "2409",    "24",
  "Nord-du-Québec",  "2410",    "24",
  "Gaspésie-Îles-de-la-Madeleine",  "2411",    "24",
  "Chaudière-Appalaches",  "2412",    "24",
  "Laval",  "2413",    "24",
  "Lanaudière",  "2414",    "24",
  "Laurentides",  "2415",    "24",
  "Montérégie",  "2416",    "24",
  "Nunavik",  "2417",    "24",
  "Terres-Cries-de-la-Baie-James",  "2418",    "24",
  "Algoma",  "3526",    "35",
  "Brant",  "3527",    "35",
  "Durham",  "3530",    "35",
  "Grey Bruce",  "3533",    "35",
  "Haldimand-Norfolk",  "3534",    "35",
  "Haliburton Kawartha Pineridge",  "3535",    "35",
  "Halton",  "3536",    "35",
  "Hamilton",  "3537",    "35",
  "Hastings Prince Edward",  "3538",    "35",
  "Chatham-Kent",  "3540",    "35",
  "Kingston Frontenac Lennox & Addington",  "3541",    "35",
  "Lambton",  "3542",    "35",
  "Leeds Grenville and Lanark",  "3543",    "35",
  "Middlesex-London",  "3544",    "35",
  "Niagara",  "3546",    "35",
  "North Bay Parry Sound",  "3547",    "35",
  "Northwestern",  "3549",    "35",
  "Ottawa",  "3551",    "35",
  "Peel",  "3553",    "35",
  "Peterborough",  "3555",    "35",
  "Porcupine",  "3556",    "35",
  "Renfrew",  "3557",    "35",
  "Eastern", "3558", "35",
  "Simcoe Muskoka",  "3560",    "35",
  "Sudbury",  "3561",    "35",
  "Thunder Bay",  "3562",    "35",
  "Timiskaming",  "3563",    "35",
  "Waterloo",  "3565",    "35",
  "Wellington Dufferin Guelph",  "3566",    "35",
  "Windsor-Essex",  "3568",    "35",
  "York",  "3570",    "35",
  "Southwestern",  "3575",    "35",
  "Toronto",  "3595",    "35",
  "Huron Perth",  "35xx",    "35",
  "Winnipeg",  "4601",    "46",
  "Prairie Mountain",  "4602",    "46",
  "Interlake-Eastern",  "4603",    "46",
  "Northern", "4604", "46",
  "Southern Health",  "4605",    "46",
  "Not Reported, Saskatchewan",    "47",    "47",
  "South", "47x1", "47",
  "Central", "47x2", "47",
  "Regina",  "4704",    "47",
  "Saskatoon",  "4706",    "47",
  "North",  "47x3",    "47",
  "Far North",  "47x4",    "47",
  "Not Reported, Alberta",    "48",    "48",
  "South",  "4831",    "48",
  "Calgary",  "4832",    "48",
  "Central",  "4833",    "48",
  "Edmonton",  "4834",    "48",
  "North",  "4835",    "48",
  "Not Reported, BC",    "59",    "59",
  "Interior",   "591",    "59",
  "Fraser",   "592",    "59",
  "Vancouver Coastal",   "593",    "59",
  "Island",   "594",    "59",
  "Northern",   "595",    "59",
  "Yukon",  "6001",    "60",
  "NWT",  "6101",    "61"
)


province_name_lookup <- c(
  "35" = "Ontario",
  "24" = "Quebec",
  "59" = "British Columbia",
  "48" = "Alberta",
  "46" = "Manitoba",
  "47" = "Saskatchewan",
  "12" = "Nova Scotia",
  "13" = "New Brunswick",
  "10" = "Newfoundland and Labrador",
  "11" = "Prince Edward Island",
  "61" = "Northwest Territories",
  "62" = "Nunavut",
  "60" = "Yukon"
)


province_uid_lookup <- setNames(names(province_name_lookup),as.character(province_name_lookup))