tests/testthat/test-mockPatientProfiles.R

test_that("errors for mock", {
  skip_on_cran()
  expect_error(mockPatientProfiles(con = "aasa"))
  expect_no_error(cdm <- mockPatientProfiles())
  expect_true(inherits(cdm, "cdm_reference"))
  mockDisconnect(cdm = cdm)
})

Try the PatientProfiles package in your browser

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

PatientProfiles documentation built on Oct. 30, 2024, 9:13 a.m.