if (FALSE) {
library(CDMConnector)
library(dplyr, warn.conflicts = FALSE)
con <- DBI::dbConnect(duckdb::duckdb(), eunomiaDir())
cdm <- cdmFromCon(con, cdmSchema = "main")
cdm2 <- cdmSubset(cdm, personId = c(2, 18, 42))
cdm2$person %>%
select(1:3)
#> # Source: SQL [3 x 3]
#> # Database: DuckDB 0.6.1
#> person_id gender_concept_id year_of_birth
#>
#> 1 2 8532 1920
#> 2 18 8532 1965
#> 3 42 8532 1909
DBI::dbDisconnect(con, shutdown = TRUE)
}
Run the code above in your browser using DataLab