Automatically set logging variables when debuging a failing GHA

NEWS.md

@@ -1,5 +1,6 @@
 # evaluate (development version)
 
+* Setting `ACTIONS_RUNNER_DEBUG=1` (as in a failing GHA workflow) will automatically set `log_echo` and `log_warning` to `TRUE` (#175).
 * `is.value()` has been removed since it tests for an object that evaluate never creates.
 * `parse_all()` no longer has a default method, which will generate better errors if you pass in something unexpectected.
 * The package now depends on R 4.0.0 in order to decrease our maintenance burden.

R/eval.R

@@ -38,6 +38,9 @@
 #'  force these arguments to be set to `NA`.
 #' @param log_echo,log_warning If `TRUE`, will immediately log code and
 #'   warnings (respectively) to `stderr`.
+#' 
+#'   This will be force to `TRUE` if env var `ACTIONS_RUNNER_DEBUG` is
+#'   `true`, as when debugging a failing GitHub Actions workflow.
 #' @param new_device if `TRUE`, will open a new graphics device and
 #'   automatically close it after completion. This prevents evaluation from
 #'   interfering with your existing graphics environment.
@@ -68,6 +71,11 @@ evaluate <- function(input,
     keep_message <- NA 
     keep_warning <- NA
   }
+  if (env_var_is_true("ACTIONS_RUNNER_DEBUG")) {
+    log_warning <- TRUE
+    log_echo <- TRUE
+  }
+
   on_message <- check_keep(keep_message, "keep_message")
   on_warning <- check_keep(keep_warning, "keep_warning", log_warning)
 

tests/testthat/test-eval.R

@@ -31,6 +31,18 @@ test_that("log_echo causes output to be immediately written to stderr()", {
   expect_equal(res[[1]]$src, "f()")
 })
 
+test_that("ACTIONS_RUNNER_DEBUG forces log_warning and log_echo to TRUE", {
+  f <- function() {
+    1
+    warning("abc")
+  }
+  out <- local({
+    withr::local_envvar(ACTIONS_RUNNER_DEBUG = "true")
+    capture.output(expect_warning(evaluate("f()"), "abc"), type = "message")
+  })
+  expect_equal(out, "f()")
+})
+
 test_that("data sets loaded", {
   skip_if_not_installed("lattice")