tests/testthat/test-l_ae_slide.R

test_that("Test listing creation of l_ae_slide (Adverse Events Listing)", {
  library(dplyr)
  library(rlistings)
  adsl <- eg_adsl
  adae <- eg_adae

  expect_snapshot(l_ae_slide(adsl = adsl, adae = adae))
})

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.