nocov new code

Rdatatable · Jan 12, 2024 · 6d49469 · 6d49469
1 parent b3f6896
commit 6d49469
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/cedta.R b/R/cedta.R
@@ -22,6 +22,7 @@ cedta.pkgEvalsUserCode = c("gWidgetsWWW","statET","FastRWeb","slidify","rmarkdow
 #   package authors could set it using assignInNamespace and then not revert its value properly which would
 #   cause subsequent calls from other packages to fail.
 
+# nocov start: very hard to reach this within our test suite -- the call stack within a call generated by e.g. knitr
 # for loop, not any(vapply_1b(.)), to allow early exit
 .any_eval_calls_in_stack <- function() {
   calls = sys.calls()
@@ -32,6 +33,7 @@ cedta.pkgEvalsUserCode = c("gWidgetsWWW","statET","FastRWeb","slidify","rmarkdow
   }
   return(FALSE)
 }
+# nocov end
 
 # cedta = Calling Environment Data.Table-Aware
 cedta = function(n=2L) {