tests/testthat/test-t_ds_slide.R

In autoslider.core: Slide Automation for Tables, Listings and Figures

test_that("Test table creation of t_ds_slide", {
  expect_snapshot(t_ds_slide(adsl = testdata$adsl))
})

test_that("Test table creation of t_ds_slide", {
  expect_snapshot(t_ds_slide(adsl = testdata$adsl, side_by_side = "GlobalChina"))
})

test_that("Test table creation of t_ds_slide", {
  expect_snapshot(t_ds_slide(adsl = testdata$adsl, split_by_study = TRUE))
})

test_that("Test table creation of t_ds_slide", {
  expect_snapshot(t_ds_slide(adsl = testdata$adsl, split_by_study = TRUE, side_by_side = "GlobalChina"))
  expect_warning(t_ds_slide(adsl = testdata$adsl, split_by_study = TRUE, side_by_side = "GlobalChina"))
})