use xfun::read/write_utf8() instead

rstudio · Nov 27, 2018 · af999b4 · af999b4
1 parent 3090618
commit af999b4
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/rsos_article.R b/R/rsos_article.R
@@ -69,7 +69,7 @@ rsos_article <- function(
   post_processor <- function(
     metadata, input_file, output_file, clean, verbose
   ) {
-    text <- readLines(output_file, warn = FALSE)
+    text <- xfun::read_utf8(output_file)
 
     # set correct text in fmtext environment
     end_first_page <- grep("^\\\\EndFirstPage", text) #nolint
@@ -84,7 +84,7 @@ rsos_article <- function(
         text[(end_first_page + 1):length(text)]
       )
     }
-    writeLines(enc2utf8(text), output_file, useBytes = TRUE)
+    xfun::write_utf8(text, output_file)
     output_file
   }