bind.cohort_table | R Documentation |
Bind two or more cohort tables
## S3 method for class 'cohort_table'
bind(..., name)
... |
Generated cohort set objects to bind. At least two must be provided. |
name |
Name of the new generated cohort set. |
The cdm object with a new generated cohort set containing all of the cohorts passed.
library(omopgenerics)
library(dplyr, warn.conflicts = FALSE)
cohort1 <- tibble(
cohort_definition_id = 1,
subject_id = 1:3,
cohort_start_date = as.Date("2010-01-01"),
cohort_end_date = as.Date("2010-01-05")
)
cohort2 <- tibble(
cohort_definition_id = c(2, 2, 3, 3, 3),
subject_id = c(1, 2, 3, 1, 2),
cohort_start_date = as.Date("2010-01-01"),
cohort_end_date = as.Date("2010-01-05")
)
cdm <- cdmFromTables(
tables = list(
"person" = tibble(
person_id = c(1, 2, 3), gender_concept_id = 0, year_of_birth = 1990,
race_concept_id = 0, ethnicity_concept_id = 0
),
"observation_period" = tibble(
observation_period_id = 1:3, person_id = 1:3,
observation_period_start_date = as.Date("2000-01-01"),
observation_period_end_date = as.Date("2023-12-31"),
period_type_concept_id = 0
)
),
cdmName = "mock",
cohortTables = list("cohort1" = cohort1, "cohort2" = cohort2)
)
cdm <- bind(cdm$cohort1, cdm$cohort2, name = "cohort3")
settings(cdm$cohort3)
cdm$cohort3
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.