tests/testthat/test-shinytest2-disable_src.R

In teal: Exploratory Web Apps for Analyzing Clinical Trials Data

testthat::skip_if_not_installed("shinytest2")
skip_if_too_deep(5)

testthat::test_that("Show R Code button is disabled on a module", {
  app <- TealAppDriver$new(init(
    data = simple_teal_data(),
    modules = example_module(label = "m1") |> disable_src()
  ))


  expect_true(endsWith(app$get_attr(
    selector = "#teal-teal_modules-nav-m1-source_code_wrapper-source_code-button",
    attribute = "class"
  ), "shiny-bound-input disabled"))

  app$stop()
})

testthat::test_that("Show R Code is disabled on nested modules changed with disable_src", {
  app <- TealAppDriver$new(init(
    data = simple_teal_data(),
    modules = modules(
      example_module(label = "m1"),
      example_module(label = "m2")
    ) |> disable_src()
  ))

  class <- app$get_attr(
    selector = "#teal-teal_modules-nav-m1-source_code_wrapper-source_code-button",
    attribute = "class"
  )
  classes <- strsplit(class, split = " ", fixed = TRUE)[[1]]
  expect_true(all(c("shiny-bound-input", "disabled") %in% classes))

  app$stop()
})