fix grep unicode issue

walke · Oct 17, 2019 · de64819 · de64819
1 parent 8c8dae0
commit de64819
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/GENESISClasses.R b/R/GENESISClasses.R
@@ -403,7 +403,7 @@ readRegDeath <- function(infile)
 {
   bb <- scan(infile, what=character(), blank.lines.skip = FALSE, encoding="ANSI", sep="\n")
 
-  h2 <- grep(";Insgesamt;m\u00e4nnlich",bb)
+  h2 <- grep(";Insgesamt;m\\xe4nnlich",bb)
   f1 <- grep("__________",bb)
   f2 <- length(bb)
 
@@ -454,7 +454,7 @@ readRegExp <- function(infile)
 {
   bb <- scan(infile, what=character(), blank.lines.skip = FALSE, encoding="ANSI", sep="\n")
 
-  h2 <- grep(";Insgesamt;m\u00e4nnlich",bb)
+  h2 <- grep(";Insgesamt;m\\xe4nnlich",bb)
   f1 <- grep("__________",bb)
   f2 <- length(bb)