csv_dir <- file.path(tempdir(), "expanded_trials_csv")
dir.create(csv_dir)
csv_datastore <- save_to_csv(path = csv_dir)
trial_to_expand <- trial_sequence("ITT") |>
set_data(data = data_censored) |>
set_expansion_options(output = csv_datastore, chunk_size = 500)
# Delete directory after use
unlink(csv_dir)
Run the code above in your browser using DataLab