fix output

Author: lorenzwalthert

R/ui.R

@@ -39,7 +39,8 @@ style_pkg <- function(pkg = ".",
                       transformers = style(...),
                       exclude_files = "R/RcppExports.R") {
   pkg_root <- rprojroot::find_package_root_file(path = pkg)
-  withr::with_dir(pkg_root, prettify_local(transformers, exclude_files))
+  changed <- withr::with_dir(pkg_root, prettify_local(transformers, exclude_files))
+  invisible(changed)
 }
 
 prettify_local <- function(transformers, exclude_files) {
@@ -104,9 +105,10 @@ style_dir <- function(path = ".",
                       transformers = style(...),
                       recursive = TRUE,
                       exclude_files = NULL) {
-  withr::with_dir(
+  changed <- withr::with_dir(
     path, prettify_any(transformers, recursive, exclude_files)
   )
+  invisible(changed)
 }
 
 #' Prettify R code in current working directory
@@ -145,8 +147,9 @@ style_file <- function(path,
                         ...,
                         style = tidyverse_style,
                         transformers = style(...)) {
-  withr::with_dir(
+  changed <- withr::with_dir(
     dirname(path),
     transform_files(basename(path), transformers)
   )
+  invisible(changed)
 }

tests/testthat/public-api/xyzdir-dirty/clean-reference-with-scope-tokens

@@ -80,7 +80,7 @@ test_that("messages (via cat()) of style_file are correct", {
   temp_path <- copy_to_tempdir(testthat_file(
     "public-api", "xyzdir-dirty", "dirty-sample-with-scope-tokens.R"
   ))
-  expect_equal_to_reference(enc::to_utf8(capture_output(
+  expect_equal_to_reference(enc::to_utf8(capture.output(
     style_file(temp_path, scope = "tokens"))),
     testthat_file("public-api/xyzdir-dirty/dirty-reference-with-scope-tokens")
   )
@@ -89,15 +89,15 @@ test_that("messages (via cat()) of style_file are correct", {
   # No message if scope > line_breaks and code does not change
   temp_path <- copy_to_tempdir(testthat_file("public-api", "xyzdir-dirty", "clean-sample-with-scope-tokens.R"))
   expect_equal_to_reference(
-    enc::to_utf8(capture_output(style_file(temp_path, scope = "tokens"))),
+    enc::to_utf8(capture.output(style_file(temp_path, scope = "tokens"))),
     testthat_file("public-api/xyzdir-dirty/clean-reference-with-scope-tokens")
   )
   unlink(dirname(temp_path))
 
   # No message if scope <= line_breaks even if code is changed.
   temp_path <- copy_to_tempdir(testthat_file("public-api", "xyzdir-dirty", "dirty-sample-with-scope-spaces.R"))
   expect_equal_to_reference(
-    enc::to_utf8(capture_output(style_file(temp_path, scope = "spaces"))),
+    enc::to_utf8(capture.output(style_file(temp_path, scope = "spaces"))),
     testthat_file("public-api/xyzdir-dirty/dirty-reference-with-scope-spaces")
   )
   unlink(dirname(temp_path))