Cran version, change french unicode because windows developemnt version of R complains.

Author: mountainMath

CRAN-RELEASE

@@ -1,2 +1,2 @@
-This package was submitted to CRAN on 2019-07-17.
-Once it is accepted, delete this file and tag the release (commit 619b9ab0ca).
+This package was submitted to CRAN on 2019-08-18.
+Once it is accepted, delete this file and tag the release (commit 1f73d92ef2).

R/cansim_helpers.R

@@ -117,23 +117,58 @@ short_prov.en <- c(
   "Canada"="CAN"
 )
 
-short_prov.fr <- c(
-  "Colombie-Britannique"="BC",
-  "Alberta"="AB",
-  "Saskatchewan"="SK",
-  "Manitoba"="MB",
-  "Ontario"="ON",
-  "Qu\u00E9bec"="QC",
-  "Nouveau-Brunswick"="NB",
-  "\u00CEle-du-Prince-\u00C9douard"="PE",
-  "Nouvelle-\u00C9cosse"="NS",
-  "Terre-Neuve-et-Labrador"="NL",
-  "Yukon"="YT",
-  "Territoires du Nord-Ouest"="NT",
-  "Nunavut"="NU",
-  "Territoires du Nord-Ouest incluant Nunavut"="NTNU",
-  "Canada"="CAN"
-)
+# short_prov.fr <- c(
+#   "Colombie-Britannique"="BC",
+#   "Alberta"="AB",
+#   "Saskatchewan"="SK",
+#   "Manitoba"="MB",
+#   "Ontario"="ON",
+#   "Qu\U00E9bec"="QC",
+#   "Nouveau-Brunswick"="NB",
+#   "\u00CEle-du-Prince-\U00C9douard"="PE",
+#   "Nouvelle-\U00C9cosse"="NS",
+#   "Terre-Neuve-et-Labrador"="NL",
+#   "Yukon"="YT",
+#   "Territoires du Nord-Ouest"="NT",
+#   "Nunavut"="NU",
+#   "Territoires du Nord-Ouest incluant Nunavut"="NTNU",
+#   "Canada"="CAN"
+# )
+
+short_prov.fr <- purrr::set_names(c(
+  "BC",
+  "AB",
+  "SK",
+  "MB",
+  "ON",
+  "QC",
+  "NB",
+  "PE",
+  "NS",
+  "NL",
+  "YT",
+  "NT",
+  "NU",
+  "NTNU",
+  "CAN"
+),c(
+  "Colombie-Britannique",
+  "Alberta",
+  "Saskatchewan",
+  "Manitoba",
+  "Ontario",
+  paste0("Qu",intToUtf8(0x00E9),"bec"),
+  "Nouveau-Brunswick",
+  paste0(intToUtf8(0x00CE),"le-du-Prince-",intToUtf8(0x00C9),"douard"),
+  paste0("Nouvelle-",intToUtf8(0x00C9),"cosse"),
+  "Terre-Neuve-et-Labrador",
+  "Yukon",
+  "Territoires du Nord-Ouest",
+  "Nunavut",
+  "Territoires du Nord-Ouest incluant Nunavut",
+  "Canada"
+))
+
 
 
 #' Add provincial abbreviations as factor
@@ -146,7 +181,7 @@ add_provincial_abbreviations <- function(data){
     data_geography_column <- "GEO"
     short_prov <- short_prov.en
   } else {
-    data_geography_column <- paste0("G\u00C9O")
+    data_geography_column <- paste0("G",intToUtf8(0x00C9),"O")
     short_prov <- short_prov.fr
   }
   data <- data %>%