tests/testthat/test-module_teal.R

In teal: Exploratory Web Apps for Analyzing Clinical Trials Data

testthat::test_that("srv_teal fails when teal_data_rv is not reactive", {
  testthat::expect_error(
    shiny::testServer(
      app = srv_teal,
      args = list(
        id = "test",
        teal_data_rv = teal.data::teal_data(iris = iris),
        modules = modules(example_module())
      ),
      expr = NULL
    ),
    regexp = "is.reactive\\(teal_data_rv\\)"
  )
})

testthat::test_that("srv_teal when teal_data_rv changes, datasets_reactive is initialized as list of FilteredData", {
  data <- teal.data::teal_data(iris1 = iris, mtcars1 = mtcars)
  shiny::testServer(
    app = srv_teal,
    args = list(
      id = "test",
      teal_data_rv = reactiveVal(NULL),
      modules = modules(
        example_module(label = "iris_tab"),
        example_module(label = "mtcars_tab")
      )
    ),
    expr = {
      teal_data_rv(data)
      checkmate::expect_list(datasets_reactive(), types = "FilteredData")
    }
  )
})

testthat::test_that("srv_teal initialized datasets_reactive (list) reflects modules structure", {
  data <- teal.data::teal_data(iris1 = iris, mtcars1 = mtcars)
  shiny::testServer(
    app = srv_teal,
    args = list(
      id = "test",
      teal_data_rv = reactiveVal(data),
      modules = modules(
        example_module("iris_tab"),
        modules(label = "tab", example_module("iris_tab"), example_module("mtcars_tab"))
      )
    ),
    expr = {
      teal_data_rv(data)
      testthat::expect_named(datasets_reactive(), c("iris_tab", "tab"))
      testthat::expect_named(datasets_reactive()$tab, c("iris_tab", "mtcars_tab"))
    }
  )
})

testthat::test_that("srv_teal initialized data containing same FilteredData when the filter is global", {
  data <- teal.data::teal_data(iris1 = iris, mtcars1 = mtcars)
  shiny::testServer(
    app = srv_teal,
    args = list(
      id = "test",
      teal_data_rv = reactiveVal(data),
      modules = modules(
        example_module("iris_tab"),
        modules(label = "tab", example_module("iris_tab"), example_module("mtcars_tab"))
      ),
      filter = teal_slices(module_specific = FALSE)
    ),
    expr = {
      teal_data_rv(data)
      unlisted_fd <- unlist(datasets_reactive(), use.names = FALSE)
      testthat::expect_identical(unlisted_fd[[1]], unlisted_fd[[2]])
      testthat::expect_identical(unlisted_fd[[2]], unlisted_fd[[3]])
    }
  )
})

testthat::test_that("srv_teal initialized data containing different FilteredData when the filter is module_specific", {
  data <- teal.data::teal_data(iris1 = iris, mtcars1 = mtcars)
  shiny::testServer(
    app = srv_teal,
    args = list(
      id = "test",
      teal_data_rv = reactiveVal(data),
      modules = modules(
        example_module("iris_tab"),
        modules(label = "tab", example_module("iris_tab"), example_module("mtcars_tab"))
      ),
      filter = teal_slices(module_specific = TRUE)
    ),
    expr = {
      teal_data_rv(data)
      unlisted_fd <- unlist(datasets_reactive(), use.names = FALSE)
      testthat::expect_false(identical(unlisted_fd[[1]], unlisted_fd[[2]]))
      testthat::expect_false(identical(unlisted_fd[[2]], unlisted_fd[[3]]))
    }
  )
})