tests/testthat/test-check_ard_structure.R

In cards: Analysis Results Data

test_that("check_ard_structure() works", {
  expect_snapshot(
    ard_continuous(ADSL, variables = "AGE") |>
      dplyr::mutate(stat = unlist(stat)) |>
      dplyr::select(-error) |>
      structure(class = "data.frame") |>
      check_ard_structure()
  )
})