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

References ropensci#75.
mbojan · Apr 18, 2021 · b8a48aa · b8a48aa
1 parent 5a8a874
commit b8a48aa
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/ReadBib.R b/R/ReadBib.R
@@ -53,6 +53,10 @@ ReadBib <- function(file, .Encoding = "UTF-8",
  srcfile(file, encoding = .Encoding))
 
  out <- bibtex::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)