Tighten chatty() example (#1642)

I may be missing a deeper point here, but it seems simpler for `chatty()` to use `message()` instead of `cat()` and call it before the processing begins?
hadley · Mar 19, 2023 · 14bdb11 · 14bdb11
1 parent 320ec82
commit 14bdb11
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/Function-operators.Rmd b/Function-operators.Rmd
@@ -14,9 +14,8 @@ chatty <- function(f) {
   force(f)
   
   function(x, ...) {
-    res <- f(x, ...)
-    cat("Processing ", x, "\n", sep = "")
-    res
+    message("Processing ", x)
+    f(x, ...)
   }
 }
 f <- function(x) x ^ 2