library(omock)
library(dplyr)
# Create a mock CDM reference and add observation records
cdm <- mockCdmReference() |>
mockPerson() |>
mockObservationPeriod() |>
mockObservation(recordPerson = 3)
# View the generated observation data
cdm$observation |>
glimpse()
Run the code above in your browser using DataLab