if (FALSE) {
library(CDMConnector)
library(dplyr, warn.conflicts = FALSE)
con <- DBI::dbConnect(duckdb::duckdb(), eunomiaDir())
cdm <- cdmFromCon(con, cdmSchema = "main")
all_observations <- cdmSubset(cdm, personId = c(2, 18, 42)) %>%
cdmFlatten() %>%
collect()
all_observations
#> # A tibble: 213 × 8
#> person_id observation_. start_date end_date type_. domain obser. type_.
#>
#> 1 2 40213201 1986-09-09 1986-09-09 5.81e5 drug pneumo
#> 2 18 4116491 1997-11-09 1998-01-09 3.20e4 condi Escher
#> 3 18 40213227 2017-01-04 2017-01-04 5.81e5 drug tetanu
#> 4 42 4156265 1974-06-13 1974-06-27 3.20e4 condi Facial
#> 5 18 40213160 1966-02-23 1966-02-23 5.81e5 drug poliov
#> 6 42 4198190 1933-10-29 1933-10-29 3.80e7 proce Append
#> 7 2 4109685 1952-07-13 1952-07-27 3.20e4 condi Lacera
#> 8 18 40213260 2017-01-04 2017-01-04 5.81e5 drug zoster
#> 9 42 4151422 1985-02-03 1985-02-03 3.80e7 proce Sputum
#> 10 2 4163872 1993-03-29 1993-03-29 3.80e7 proce Plain
#> # ... with 203 more rows, and abbreviated variable names observation_concept_id,
#> # type_concept_id, observation_concept_name, type_concept_name
DBI::dbDisconnect(con, shutdown = TRUE)
}
Run the code above in your browser using DataLab