tests/testthat/test-print.R

test_that("tests for print.linelist", {
  x <- make_linelist(cars, date_onset = "dist", date_outcome = "speed")
  expect_snapshot_output(print(x))

  y <- make_linelist(cars)
  expect_snapshot_output(print(y))
})

Try the linelist package in your browser

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

linelist documentation built on June 22, 2024, 10:54 a.m.