tests/testthat/test-shinytest2-disable_report.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("Add to report button is not disabled by default.", {
  app <- TealAppDriver$new(init(
    data = simple_teal_data(),
    modules = example_module(label = "m1")
  ))

  expect_true(endsWith(app$get_attr(
    selector = "#teal-teal_modules-nav-m1-add_reporter_wrapper-reporter_add-add_report_card_button",
    attribute = "class"
  ), "shiny-bound-input"))

  app$stop()
})

testthat::test_that("Report button is disabled on a module changed by disable_report()", {
  app <- TealAppDriver$new(init(
    data = simple_teal_data(),
    modules = example_module(label = "m1") |> disable_report()
  ))


  expect_true(endsWith(app$get_attr(
    selector = "#teal-teal_modules-nav-m1-add_reporter_wrapper-reporter_add-add_report_card_button",
    attribute = "class"
  ), "shiny-bound-input disabled"))

  app$stop()
})

testthat::test_that("Report button is active on a nested module by default", {
  app <- TealAppDriver$new(
    init(
      data = simple_teal_data(),
      modules = modules(
        example_module(label = "m1"),
        example_module(label = "m2")
      )
    )
  )

  expect_true(endsWith(app$get_attr(
    selector = "#teal-teal_modules-nav-m1-add_reporter_wrapper-reporter_add-add_report_card_button",
    attribute = "class"
  ), "shiny-bound-input"))

  app$stop()
})

testthat::test_that("Report button is disabled on nested modules changed by disable_report()", {
  app <- TealAppDriver$new(
    init(
      data = simple_teal_data(),
      modules = modules(
        example_module(label = "m1"),
        example_module(label = "m2")
      ) |> disable_report()
    )
  )
  class <- app$get_attr(
    selector = "#teal-teal_modules-nav-m1-add_reporter_wrapper-reporter_add-add_report_card_button",
    attribute = "class"
  )
  classes <- strsplit(class, split = " ", fixed = TRUE)[[1]]
  expect_true(all(c("shiny-bound-input", "disabled") %in% classes))

  app$stop()
})