Fix missing frame propagation

hadley · hadley · commit 879ed31eceee · 2025-08-13T07:24:46.000-05:00
diff --git a/R/local.R b/R/local.R
@@ -190,7 +190,7 @@ local_test_directory <- function(path, package = NULL, .env = parent.frame()) {
 }
 
 local_interactive_reporter <- function(.env = parent.frame()) {
-  local_assume_not_on_cran()
+  local_assume_not_on_cran(.env)
   withr::local_options(testthat_interactive = TRUE, .local_envir = .env)
 
   # Use edition from working directory

Original file line number	Diff line number	Diff line change
`@@ -190,7 +190,7 @@ local_test_directory <- function(path, package = NULL, .env = parent.frame()) {`
`190`	`190`	`}`
`191`	`191`
`192`	`192`	`local_interactive_reporter <- function(.env = parent.frame()) {`
`193`		`- local_assume_not_on_cran()`
	`193`	`+ local_assume_not_on_cran(.env)`
`194`	`194`	`withr::local_options(testthat_interactive = TRUE, .local_envir = .env)`
`195`	`195`
`196`	`196`	`# Use edition from working directory`