tests/testthat/test-with-interactive.R

In SomaDataIO: Input/Output 'SomaScan' Data

test_that("interactive session can be forced ON, but only within temp scope", {
  with_interactive(TRUE, {
    expect_true(interactive())
  })
  with_interactive(FALSE, {
    expect_false(interactive())
  })
  expect_false(interactive())   # FALSE during testthat
})