Add encoding = getOption("citr.encoding") to readLines()

crsh · Mar 15, 2020 · caa8d5e · caa8d5e
1 parent 6c5a1d9
commit caa8d5e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/insert_citation.R b/R/insert_citation.R
@@ -104,7 +104,7 @@ insert_citation <- function(
       stop("More than one parent document found. See getOption('citr.parent_documents').")
     }
 
-    parent_document <- readLines(parents_path[parents], warn = FALSE)
+    parent_document <- readLines(parents_path[parents], warn = FALSE, encoding = getOption("citr.encoding"))
     parent_yaml_delimiters <- grep("^(---|\\.\\.\\.)\\s*$", parent_document)
 
     yaml_bib_file <- get_bib_from_yaml(