meta <- meta_sl_example()
meta |>
prepare_disposition(population = "apat", parameter = "disposition;medical-disposition") |>
format_disposition() |>
rtf_disposition(
source = "Source: [CDISCpilot: adam-adsl]",
path_outdata = tempfile(fileext = ".Rdata"),
path_outtable = tempfile(fileext = ".rtf")
)
Run the code above in your browser using DataLab