R/enc.R

In r-pkgs/pkgload: Simulate Package Installation and Attach

read_lines_enc <- function(path, file_encoding = "UTF-8", n = -1L, ok = TRUE, skipNul = FALSE) {
  con <- file(path, encoding = file_encoding)
  defer(close(con))

  lines <- readLines(con, warn = FALSE, n = n, ok = ok, skipNul = skipNul)
  Encoding(lines) <- "UTF-8"
  lines
}