Nothing
knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
library(omock) library(dplyr) library(lubridate)
There are times where the user will want to create a mock CDM reference from its own bespoke tables. The mockCdmFromTables() function is designed to facilitates the creation of mock CDM reference from bespoke tables.For example if you want to create a CDM reference based on below bespoke cohorts. You can do it simple using the mockCdmFromTable() functions in a few lines of code.
# Define a list of user-defined cohort tables cohortTables <- list( cohort1 = tibble( subject_id = 1:10, cohort_definition_id = rep(1, 10), cohort_start_date = as.Date("2020-01-01") + 1:10, cohort_end_date = as.Date("2020-01-01") + 11:20 ), cohort2 = tibble( subject_id = 11:20, cohort_definition_id = rep(2, 10), cohort_start_date = as.Date("2020-02-01") + 1:10, cohort_end_date = as.Date("2020-02-01") + 11:20 ) ) # Create a mock CDM object from the user-defined tables cdm <- mockCdmReference() |> mockCdmFromTables(tables = cohortTables) cdm |> glimpse()
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.