Nothing
test_that("mockObservationPeriod", {
expect_no_error(
cdm <- emptyCdmReference(cdmName = "test") |>
mockPerson(
nPerson = 1000,
birthRange = as.Date(c("1990-01-01", "2000-01-01")),
seed = 1
) |>
mockObservationPeriod()
)
expect_true(all(colnames(cdm$observation_period) %in%
c(
"observation_period_id", "person_id",
"observation_period_start_date",
"observation_period_end_date",
"period_type_concept_id"
)))
expect_equal(
cdm$observation_period$person_id,
cdm$person$person_id
)
expect_true(all(cdm$observation_period$observation_period_start_date <
cdm$observation_period$observation_period_end_date))
expect_true(all(cdm$observation_period$observation_period_id ==
cdm$observation_period$person_id))
})
test_that("seed test", {
cdm1 <- omock::mockPerson(nPerson = 10, seed = 1) |>
omock::mockObservationPeriod(seed = 1)
cdm2 <- omock::mockPerson(nPerson = 10, seed = 1) |>
omock::mockObservationPeriod()
cdm3 <- omock::mockPerson(nPerson = 10, seed = 1) |>
omock::mockObservationPeriod(seed = 1)
expect_error(expect_equal(cdm1$observation_period, cdm2$observation_period))
expect_equal(cdm1$observation_period, cdm3$observation_period)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.