Restore object that knitr uses (#162)

* Restore object that knitr uses * Re-document
r-lib · Jun 20, 2024 · 14c9609 · 14c9609
1 parent 82bb972
commit 14c9609
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 2 deletions.
diff --git a/R/eval.R b/R/eval.R
@@ -47,12 +47,14 @@ evaluate <- function(input,
                      log_echo = FALSE,
                      log_warning = FALSE,
                      new_device = TRUE,
-                     output_handler = new_output_handler(),
+                     output_handler = NULL,
                      filename = NULL,
                      include_timing = FALSE) {
   stop_on_error <- as.integer(stop_on_error)
   stopifnot(length(stop_on_error) == 1)
 
+  output_handler <- output_handler %||% default_output_handler
+
   if (isTRUE(include_timing)) {
     warning("`evaluate(include_timing)` is deprecated")
   }

diff --git a/R/zzz.R b/R/zzz.R
@@ -0,0 +1,6 @@
+# used by knitr to avoid overheard of calling new_output_handler() repeatedly
+default_output_handler <- NULL
+
+.onLoad <- function(...) {
+  default_output_handler <<- new_output_handler()
+}
diff --git a/man/evaluate.Rd b/man/evaluate.Rd