/usr/share/doc/r-cran-bslib/tests/testthat/test-shiny-devmode.R

test_that("shiny devmode shuts off default caching", {

  expect_equal(
    get_precompiled_option(),
    TRUE
  )


  withr::local_options(list(
    shiny.devmode = TRUE,
    shiny.devmode.verbose = FALSE
  ))
  withr::local_envvar(list(
    TESTTHAT = "false"
  ))

  expect_equal(
    get_precompiled_option(),
    FALSE
  )

})

Generated by dwww version 1.15 on Fri Jun 21 22:10:40 CEST 2024.