replace non ascii characters by unicode points

2021-08-10 20:18:23 +02:00
parent b11289e093
commit 01ec0de76f
2 changed files with 3 additions and 3 deletions
@@ -64,7 +64,7 @@ repair_talks <- function(talks) {
 #' 
 #' returns a lookup table
 lookup_speaker <- function(tb, speaker, name_variable) {
-    tobereplaced <- "[-–—‑- ]"
+    tobereplaced <- "[\u002D\u2013\u2014\u2011\u00AD ]"
    speaker %>%
        unite(name, prename, lastname, sep=".*") %>%
        mutate(name = str_replace_all(name, tobereplaced, ".*")) ->