christian/hateimparlament
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

replace Ü with unicode equivalent

Browse Source
This commit is contained in:
christian
2021-08-10 17:53:45 +02:00
parent d91403f0c8
commit b11289e093
3 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
R/parse.R
+3 -3
View File
@@ -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) {