Skip to contents

Getting Started

ccdm.Rmd
library(ccdm)
library(duckdb)
library(dplyr)

conn <- dbConnect(duckdb())

dbListTables(conn)

# Update the underlying tables for CoreCDM 
update_CoreCDM(conn) 

#create the main CoreCDM tables
create_CoreCDM(conn) 

encounters <- tbl(conn, "encounters")
#patients <- tbl(conn, "patients")
#admissions <- tbl(conn, "admissions")

encounters %>%
    group_by(subject_id) %>% count(sort = TRUE)

dbDisconnect(conn, shutdown = TRUE)