tests/testthat/test-toslide.R

test_that("Test layout is in layout", {
  adsl <- eg_adsl
  out1 <- t_dm_slide(adsl, "TRT01P", c("SEX", "AGE", "RACE", "ETHNIC", "COUNTRY"))
  expect_no_error(generate_slides(out1, paste0(tempdir(), "/dm.pptx")))
  expect_error(generate_slides(out1, paste0(tempdir(), "/dm.pptx"), layout = "some layout"))
})

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 Nov. 5, 2025, 5:12 p.m.