From 6d494691528fb89122ec62a78f34af704cb8a52a Mon Sep 17 00:00:00 2001
From: Michael Chirico <chiricom@google.com>
Date: Thu, 11 Jan 2024 19:02:30 -0800
Subject: [PATCH] nocov new code

---
 R/cedta.R | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/R/cedta.R b/R/cedta.R
index 5027ff0391..51dc0e9dde 100644
--- 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) {