df_visit1 <- sim_test_data_study(n_pat = 100, n_sites = 10,
ratio_out = 0.4, factor_event_rate = - 0.6,
study_id = "A")
df_visit2 <- sim_test_data_study(n_pat = 100, n_sites = 10,
ratio_out = 0.2, factor_event_rate = - 0.1,
study_id = "B")
df_visit <- dplyr::bind_rows(df_visit1, df_visit2)
get_portf_config(df_visit)
# \donttest{
# Database example
con <- DBI::dbConnect(duckdb::duckdb(), dbdir = ":memory:")
dplyr::copy_to(con, df_visit, "visit")
tbl_visit <- dplyr::tbl(con, "visit")
get_portf_config(tbl_visit)
DBI::dbDisconnect(con)
# }
Run the code above in your browser using DataLab