Provide environment to cli helper

Openscapes · Feb 13, 2025 · 40f56a0 · 40f56a0
1 parent d0e5882
commit 40f56a0
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/tests/testthat/helper.R b/tests/testthat/helper.R
@@ -54,6 +54,6 @@ set_env_vars <- function(org = c("nasa", "nmfs"), env = parent.frame()) {
   TRUE
 }
 
-skip_cli <- function(x, ...) {
-  testthat::skip(cli::cli_fmt(cli::cli_text(x, ...)))
+skip_cli <- function(x, ..., env = parent.frame()) {
+  testthat::skip(cli::cli_fmt(cli::cli_text(x, ..., .envir = env)))
 }