Use only ASCII chars and escape if needed

R/plot_municipalities.R

@@ -14,54 +14,54 @@
 #' plot_municipalities(municipality = c("Aarhus", "Favrskov"))
 plot_municipalities <- function(
     municipality = c(
-      "København",
+      "K\u00f8benhavn",
       "Frederiksberg",
       "Ballerup",
-      "Brøndby",
-      "Dragør",
+      "Br\u00f8ndby",
+      "Drag\u00f8r",
       "Gentofte",
       "Gladsaxe",
       "Glostrup",
       "Herlev",
       "Albertslund",
       "Hvidovre",
-      "Høje-Taastrup",
-      "Lyngby-Taarbæk",
-      "Rødovre",
-      "Ishøj",
-      "Tårnby",
-      "Vallensbæk",
-      "Furesø",
-      "Allerød",
+      "H\u00f8je-Taastrup",
+      "Lyngby-Taarb\u00e6k",
+      "R\u00f8dovre",
+      "Ish\u00f8j",
+      "T\u00e5rnby",
+      "Vallensb\u00e6k",
+      "Fures\u00f8",
+      "Aller\u00f8d",
       "Fredensborg",
-      "Helsingør",
-      "Hillerød",
-      "Hørsholm",
+      "Helsing\u00f8r",
+      "Hiller\u00f8d",
+      "H\u00f8rsholm",
       "Rudersdal",
       "Egedal",
       "Frederikssund",
       "Greve",
-      "Køge",
-      "Halsnæs",
+      "K\u00f8ge",
+      "Halsn\u00e6s",
       "Roskilde",
-      "Solrød",
+      "Solr\u00f8d",
       "Gribskov",
       "Odsherred",
-      "Holbæk",
+      "Holb\u00e6k",
       "Faxe",
       "Kalundborg",
       "Ringsted",
       "Slagelse",
       "Stevns",
-      "Sorø",
+      "Sor\u00f8",
       "Lejre",
       "Lolland",
-      "Næstved",
+      "N\u00e6stved",
       "Guldborgsund",
       "Vordingborg",
       "Bornholm",
       "Middelfart",
-      "Christiansø",
+      "Christians\u00f8",
       "Assens",
       "Faaborg-Midtfyn",
       "Kerteminde",
@@ -70,13 +70,13 @@ plot_municipalities <- function(
       "Svendborg",
       "Nordfyns",
       "Langeland",
-      "Ærø",
+      "\u00e6r\u00f8",
       "Haderslev",
       "Billund",
-      "Sønderborg",
-      "Tønder",
+      "S\u00f8nderborg",
+      "T\u00f8nder",
       "Esbjerg",
-      "Fanø",
+      "Fan\u00f8",
       "Varde",
       "Vejen",
       "Aabenraa",
@@ -94,25 +94,25 @@ plot_municipalities <- function(
       "Odder",
       "Randers",
       "Silkeborg",
-      "Samsø",
+      "Sams\u00f8",
       "Skanderborg",
       "Aarhus",
       "Ikast-Brande",
-      "Ringkøbing-Skjern",
+      "Ringk\u00f8bing-Skjern",
       "Hedensted",
-      "Morsø",
+      "Mors\u00f8",
       "Skive",
       "Thisted",
       "Viborg",
-      "Brønderslev",
+      "Br\u00f8nderslev",
       "Frederikshavn",
       "Vesthimmerlands",
-      "Læsø",
+      "L\u00e6s\u00f8",
       "Rebild",
       "Mariagerfjord",
       "Jammerbugt",
       "Aalborg",
-      "Hjørring"
+      "Hj\u00f8rring"
     )) {
   municipality <- match.arg(municipality,
                       several.ok = TRUE

R/plot_regions.R

@@ -18,7 +18,7 @@ plot_regions <- function(
       "Region Midtjylland",
       "Region Syddanmark",
       "Region Hovedstaden",
-      "Region Sjælland"
+      "Region Sj\u00e6lland"
     )) {
   region <- match.arg(region,
     several.ok = TRUE