if the env var R_EVALUATE_BYPASS_MESSAGES is set to true, messages …

…will not be handled by evaluate()

yihui/yihui.org#1458 (reply in thread)

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: evaluate
 Type: Package
 Title: Parsing and Evaluation Tools that Provide More Details than the Default
-Version: 0.22.2
+Version: 0.22.3
 Authors@R: c(
     person("Hadley", "Wickham", role = "aut"),
     person("Yihui", "Xie", role = c("aut", "cre"), email = "[email protected]", comment = c(ORCID = "0000-0003-0645-5666")),

NEWS.md

@@ -3,6 +3,8 @@ Version 0.23
 
 - Prevent existing plots from leaking into `evaluate()` results (thanks, @dmurdoch, yihui/knitr#2297).
 
+- If the environment variable `R_EVALUATE_BYPASS_MESSAGES` is set to true, the arguments `keep_message` and `keep_warning` of `evaluate()` will be set to `NA`, regardless of user input, which means messages and warnings will not be captured by `evaluate()`. This provides a possibility to force logging messages and warnings (thanks, @slodge, yihui/yihui.org#1458).
+
 Version 0.22
 ================================================================================
 

R/eval.R

@@ -22,7 +22,10 @@
 #'   the code into the command line.
 #' @param keep_warning,keep_message whether to record warnings and messages; if
 #'   `FALSE`, messages will be suppressed; if `NA`, they will not be captured
-#'   (normally they will be sent to the console).
+#'   (normally they will be sent to the console). Note that if the environment
+#'   variable `R_EVALUATE_BYPASS_MESSAGES` is set to true, these arguments will
+#'   always be set to `NA`, meaning that messages will not be captured by this
+#'   function.
 #' @param log_echo,log_warning If `TRUE`, will immediately log code and
 #'   warnings (respectively) to `stderr`.
 #' @param new_device if `TRUE`, will open a new graphics device and
@@ -83,6 +86,10 @@ evaluate <- function(input,
   # clean up the last_plot object after an evaluate() call (cf yihui/knitr#722)
   on.exit(assign("last_plot", NULL, envir = environment(plot_snapshot)), add = TRUE)
 
+  # if this env var is set to true, always bypass messages
+  if (tolower(Sys.getenv('R_EVALUATE_BYPASS_MESSAGES')) == 'true')
+    keep_message = keep_warning = NA
+
   out <- vector("list", nrow(parsed))
   for (i in seq_along(out)) {
     # if dev.off() was called, make sure to restore device to the one opened by