Merge pull request #245 from lorenzwalthert/master

- hotfix: utf8 should not be verbose (#245).

Author: lorenzwalthert

R/style_rmd.R

@@ -6,11 +6,13 @@
 #'
 #' @inheritParams utf8::transform_lines_enc
 #' @param ... Further arguments passed to `utf8::transform_lines_enc()`.
-transform_code <- function(path, fun, verbose, ...) {
+transform_code <- function(path, fun, verbose = FALSE, ...) {
   if (grepl("\\.R$", path, ignore.case = TRUE)) {
-    utf8::transform_lines_enc(path, fun = fun, ...)
+    utf8::transform_lines_enc(path, fun = fun, ..., verbose = verbose)
   } else if (grepl("\\.Rmd$", path, ignore.case = TRUE)) {
-    utf8::transform_lines_enc(path, fun = partial(transform_rmd, transformer_fun = fun), ...)
+    utf8::transform_lines_enc(
+      path, fun = partial(transform_rmd, transformer_fun = fun), ...,
+      verbose = verbose)
   } else {
     stop(path, " is not an R or Rmd file")
   }

man/transform_code.Rd

@@ -34,9 +34,10 @@ test_that("styler can style Rmd file", {
   expect_false(
     style_file(testthat_file("public-api", "xyzfile_rmd", "random.Rmd"), strict = FALSE)
   )
-  expect_false(
-    style_file(testthat_file("public-api", "xyzfile_rmd", "random2.Rmd"), strict = FALSE)
+  expect_warning(
+    styled <- style_file(testthat_file("public-api", "xyzfile_rmd", "random2.Rmd"), strict = FALSE)
   )
+  expect_false(styled)
 })
 
 test_that("styler handles malformed Rmd file and invalid R code in chunk", {