If BibTeX file is in UTF-8 declare the strings as such

References ropensci#75.
mbojan · May 13, 2020 · 963b59f · 963b59f
1 parent 4dd720a
commit 963b59f
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/ReadBib.R b/R/ReadBib.R
@@ -43,6 +43,10 @@ ReadBib <- function(file, .Encoding = "UTF-8",
                     srcfile(file, encoding = .Encoding))
 
   out <- do_read_bib(file, encoding = .Encoding, srcfile)
+  if(identical(.Encoding, "UTF-8")) {
+    # Declare UTF-8 of the strings if it is so
+    out <- lapply(out, function(x) {Encoding(x) <- "UTF-8"; x})
+  }
   at <- attributes(out)
   if (typeof(out) != "integer")
     out <- lapply(out, MakeBibEntry)