tests/testthat/test-slides_preview.R

test_that("Test slides preview", {
  adsl <- eg_adsl
  out <- t_dm_slide(adsl, "TRT01P", c("SEX", "AGE", "RACE"))
  expect_no_error(ret <- out %>% slides_preview())
  expect_snapshot(ret$header$dataset)
  expect_snapshot(ret$body$dataset)
})

Try the autoslider.core package in your browser

Any scripts or data that you put into this service are public.

autoslider.core documentation built on April 4, 2025, 2:05 a.m.