Fixes turning on/off stream output when option is on

mlverse · Apr 3, 2024 · 3aa82f7 · 3aa82f7
1 parent 2f4c14b
commit 3aa82f7
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/R/chattr-test.R b/R/chattr-test.R
@@ -109,9 +109,9 @@ ch_submit.ch_test_backend <- function(
     preview = FALSE,
     ...) {
   is_test <- unlist(options("chattr-shiny-test")) %||% FALSE
-  if (stream) {
+  if (stream && !is_test) {
     for (i in seq_len(nchar(prompt))) {
-      if(is_test) cat(substr(prompt, i, i))
+      cat(substr(prompt, i, i))
       Sys.sleep(0.1)
     }
   }

diff --git a/tests/testthat/test-chattr.R b/tests/testthat/test-chattr.R
@@ -1,4 +1,5 @@
 test_that("chattr() works", {
+  options("chattr-shiny-test" = FALSE)
   local_mocked_bindings(
     ui_current = function(...) {
       ""