No GHA summary in test_file()

gaborcsardi · gaborcsardi · commit fa7509803ffa · 2022-06-01T12:38:41.000+02:00
To avoid the tables from running test_file() in examples.
Not the best solution.
diff --git a/R/test-files.R b/R/test-files.R
@@ -137,6 +137,8 @@ test_file <- function(path, reporter = default_compact_reporter(), package = NUL
     stop("`path` does not exist", call. = FALSE)
   }
 
+  withr::local_envvar(TESTTHAT_GHA_SUMMARY = "false")
+
   test_files(
     test_dir = dirname(path),
     test_package = package,

Original file line number	Diff line number	Diff line change
`@@ -137,6 +137,8 @@ test_file <- function(path, reporter = default_compact_reporter(), package = NUL`
`137`	`137`	stop("`path` does not exist", call. = FALSE)
`138`	`138`	`}`
`139`	`139`
	`140`	`+ withr::local_envvar(TESTTHAT_GHA_SUMMARY = "false")`
	`141`	`+`
`140`	`142`	`test_files(`
`141`	`143`	`test_dir = dirname(path),`
`142`	`144`	`test_package = package,`