tests/testthat/test-obs_period.R

test_that("aou_observation_period returns expected output", {
  skip_workbench()

  expect_warning(aou_observation_period(), "No cohort provided")

  expect_no_warning(aou_observation_period(cohort = data.frame(person_id = 2150822)))

  expect_equal(nrow(aou_observation_period(cohort = data.frame(person_id = 2011381), collect = TRUE)), 1)
})

Try the allofus package in your browser

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

allofus documentation built on July 4, 2024, 9:09 a.m.