transform_lines_utf8() -> transform_utf8() for consistency. Remoce enc dependency completely.

Author: lorenzwalthert

R/io.R

@@ -7,12 +7,12 @@
 #'   be written back to the file.
 #' @importFrom magrittr set_names
 #' @keywords internal
-transform_lines_utf8 <- function(path, fun, write_back = TRUE) {
-  map_lgl(path, transform_lines_utf8_one, fun = fun, write_back = write_back) %>%
+transform_utf8 <- function(path, fun, write_back = TRUE) {
+  map_lgl(path, transform_utf8_one, fun = fun, write_back = write_back) %>%
     set_names(path)
 }
 
-transform_lines_utf8_one <- function(path, fun, write_back = write_back) {
+transform_utf8_one <- function(path, fun, write_back = write_back) {
   old <- xfun::read_utf8(path)
   tryCatch({
     new <- fun(old)

R/testing.R

@@ -110,7 +110,7 @@ transform_and_check <- function(in_item, out_item,
   transformed_text <- read_in %>%
     transformer(...) %>%
     unclass()
-  transformed <- transform_lines_utf8(
+  transformed <- transform_utf8(
     out_item,
     function(x) transformed_text,
     write_back = write_back

R/transform-code.R

@@ -4,19 +4,19 @@
 #' either R, Rmd or Rnw files by passing the relevant transformer function for each
 #' case.
 #'
-#' @inheritParams enc::transform_lines_enc
+#' @inheritParams transform_utf8
 #' @param ... Further arguments passed to `enc::transform_lines_enc()`.
 #' @keywords internal
 transform_code <- function(path, fun, ...) {
   if (is_plain_r_file(path)) {
-    transform_lines_utf8(path, fun = fun, ...)
+    transform_utf8(path, fun = fun, ...)
   } else if (is_rmd_file(path)) {
-    transform_lines_utf8(path,
+    transform_utf8(path,
       fun = partial(transform_mixed, transformer_fun = fun, filetype = "Rmd"),
       ...
     )
   } else if (is_rnw_file(path)) {
-    transform_lines_utf8(path,
+    transform_utf8(path,
       fun = partial(transform_mixed, transformer_fun = fun, filetype = "Rnw"),
       ...
     )

R/transform-files.R

@@ -33,7 +33,7 @@ transform_files <- function(files, transformers, include_roxygen_examples) {
 #' @param message_after The message to print after the path.
 #' @param message_after_if_changed The message to print after `message_after` if
 #'   any file was transformed.
-#' @inheritParams transform_lines_utf8
+#' @inheritParams transform_utf8
 #' @param ... Further arguments passed to `enc::transform_lines_enc()`.
 #' @keywords internal
 transform_file <- function(path,

man/transform_code.Rd

@@ -18,8 +18,8 @@ test_that("repreated parsing solves wrong parent assignment", {
     "R -q -e \"styler::style_file(\\\"", path_temp, "\\\")\""
   )
   calls_sys(sys_call, intern = FALSE, ignore.stdout = TRUE, ignore.stderr = TRUE)
-  ref <- enc::read_lines_enc(testthat_file("parsing", "repeated_parsing-out.R"))
-  result <- enc::read_lines_enc(path_temp)
+  ref <- xfun::read_utf8(testthat_file("parsing", "repeated_parsing-out.R"))
+  result <- xfun::read_utf8(path_temp)
   expect_equal(ref, result)
   unlink(dir)
 })