Merge pull request #1488 from rstudio/no-progress-bar-in-tests

Don't draw progress bar in tests

Author: t-kalinowski

NEWS.md

@@ -1,5 +1,8 @@
 # keras3 (development version)
 
+- The progress bar in `fit()`, `evaluate()` and `predict()` now 
+  defaults to not presenting during testthat tests.
+
 ## Added compatibility with Keras v3.8.0. User-facing changes:
 
 - New symbols:

R/model-training.R

@@ -1054,6 +1054,8 @@ as_model_verbose_arg <- function(x) {
   # x == auto
   if(isTRUE(getOption('knitr.in.progress')))
     return(2L)
+  if(identical(Sys.getenv("TESTTHAT"), "true"))
+    return(0L) # don't draw progress in tests
   x # "auto"
 }