output_dir <- file.path(tempdir(check = TRUE), "expanded_data")
ITT_trial <- trial_sequence("ITT") |>
set_data(data = data_censored) |>
set_expansion_options(output = save_to_csv(output_dir), chunk_size = 500)
# Delete directory
unlink(output_dir, recursive = TRUE)
Run the code above in your browser using DataLab