Improve stack trace by wrapping reporter in separate function

r-lib · Jul 22, 2024 · 7fc9902 · 7fc9902
1 parent f060cce
commit 7fc9902
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/R/reporter-progress.R b/R/reporter-progress.R
@@ -214,10 +214,11 @@ ProgressReporter <- R6::R6Class("ProgressReporter",
           snapshotter$end_file()
         }
 
-        stop_reporter(c(
+        msg <- c(
           "Maximum number of failures exceeded; quitting at end of file.",
           i = "Increase this number with (e.g.) {.run testthat::set_max_fails(Inf)}"
-        ))
+        )
+        stop_reporter(msg)
       }
     },