if (require(duckdb)) {
duckdb_dir <- file.path(tempdir(), "expanded_trials_duckdb")
trial_to_expand <- trial_sequence("ITT") |>
set_data(data = data_censored) |>
set_expansion_options(output = save_to_duckdb(path = duckdb_dir), chunk_size = 500)
# Delete directory after use
unlink(duckdb_dir)
}
Run the code above in your browser using DataLab