Merge branch 'master' into genderequality-alternative

R/analyze.R

@@ -48,14 +48,14 @@ party_colors <- c(
   FDP="#FEEB34",
   "CDU/CSU"="#000000", 
   SPD="#DF0B25",
-  "BÜNDNIS 90/DIE GRÜNEN"="#4A932B",
+  "B\u00DCNDNIS 90/DIE GR\u00DCNEN"="#4A932B",
   "DIE LINKE"="#BC3475",
   "AfD&Fraktionslos"="#AAAAFF",
   Fraktionslos="#AAAAAA"
 )
 
 party_order <- factor(c("Fraktionslos", "AfD&Fraktionslos",
-                        "DIE LINKE", "BÜNDNIS 90/DIE GRÜNEN", "SPD", "CDU/CSU",
+                        "DIE LINKE", "B\u00DCNDNIS 90/DIE GR\u00DCNEN", "SPD", "CDU/CSU",
                         "FDP", "AfD", NA_character_))
 
 #' Bar chart visualizing fraction based data

R/parse.R

@@ -55,7 +55,7 @@ read_all <- function(path="inst/records/", pattern="-data\\.xml") {
                "SPD" = str_detect(fraction, "SPD"),
                "FDP" = str_detect(fraction, "FDP"),
                "DIE_LINKE" = str_detect(fraction, "DIE LINKE"),
-               "BUENDNIS_90_DIE_GRUENEN" = str_detect(fraction, "BÜNDNIS 90/DIE GRÜNEN"),
+               "BUENDNIS_90_DIE_GRUENEN" = str_detect(fraction, "B\u00DCNDNIS 90/DIE GR\u00DCNEN"),
                "AfD" = str_detect(fraction, "AfD")) %>%
         select(-fraction) ->
         applause
@@ -172,8 +172,8 @@ parse_speech <- function(speech_xml, date) {
          comments = comments)
 }
 
-fractionpattern <- "BÜNDNIS(SES)?\\W*90/DIE\\W*GRÜNEN|CDU/CSU|AfD|SPD|DIE LINKE|FDP|LINKEN"
-fractionnames <- c("BÜNDNIS 90/DIE GRÜNEN", "CDU/CSU", "AfD", "SPD", "DIE LINKE", "FDP",
+fractionpattern <- "B\u00DCNDNIS(SES)?\\W*90/DIE\\W*GR\u00DCNEN|CDU/CSU|AfD|SPD|DIE LINKE|FDP|LINKEN"
+fractionnames <- c("B\u00DCNDNIS 90/DIE GR\u00DCNEN", "CDU/CSU", "AfD", "SPD", "DIE LINKE", "FDP",
                    "Fraktionslos")
 
 parse_comment <- function(comment, speech_id, on_speaker) {

R/repair.R

@@ -1,7 +1,7 @@
 fractions <- c("AFD" = "AfD",
                 "AFD&FRAKTIONSLOS" = "AfD&Fraktionslos",
-                "BÜNDNIS90/" = "BÜNDNIS 90/DIE GRÜNEN",
-                "BÜNDNIS90/DIEGRÜNEN" = "BÜNDNIS 90/DIE GRÜNEN",
+                "B\u00DCNDNIS90/" = "B\u00DCNDNIS 90/DIE GR\u00DCNEN",
+                "B\u00DCNDNIS90/DIEGR\u00DCNEN" = "B\u00DCNDNIS 90/DIE GR\u00DCNEN",
                 "FRAKTIONSLOS" = "Fraktionslos",
                 "DIELINKE" = "DIE LINKE",
                 "SPD" = "SPD",