More diagnostics

daroczig · Aug 6, 2024 · 0dd13fb · 0dd13fb
1 parent 0850cc6
commit 0dd13fb
Show file tree

Hide file tree

Showing 3 changed files with 435 additions and 0 deletions.
diff --git a/R/formatters.R b/R/formatters.R
@@ -31,6 +31,8 @@ formatter_sprintf <- structure(function(fmt, ..., .logcall = sys.call(), .topcal
 #' @importFrom utils str
 formatter_glue <- structure(function(..., .logcall = sys.call(), .topcall = sys.call(-1), .topenv = parent.frame()) {
     fail_on_missing_package('glue')
+    cat("Inside formatter_glue\n", file = stderr())    
+
     withCallingHandlers(
         glue::glue(..., .envir = .topenv),
         error = function(e) {
@@ -233,6 +235,7 @@ formatter_logging <- structure(function(..., .logcall = sys.call(), .topcall = s
 #' @seealso This is a [log_formatter()], for alternatives, see [formatter_paste()], [formatter_sprintf()], [formatter_glue()], [formatter_glue_safe()], [formatter_glue_or_sprintf()], [formatter_logging()]
 formatter_pander <- structure(function(x, ..., .logcall = sys.call(), .topcall = sys.call(-1), .topenv = parent.frame()) {
 
+    cat("inside formatter_pander\n", file = stderr())
     fail_on_missing_package('pander')
     eval(pander::pander_return(x, ...), envir = .topenv)
 

diff --git a/tests/testthat/test-CRANSKIP-hooks.R b/tests/testthat/test-CRANSKIP-hooks.R
@@ -13,6 +13,7 @@ eval_outside <- function(expr) {
         "log_errors()",
         expr
     ))
+    writeLines(readLines(input), con = stderr())
 
     path <- file.path(R.home("bin"), "Rscript")
     if (Sys.info()[["sysname"]] == "Windows") {