ds <- tibble::tribble(
~USUBJID, ~DSSEQ, ~DSDECOD, ~DSSTDTC,
"subject1", 1, "INFORMED CONSENT", "2020-06-23",
"subject1", 2, "RANDOMIZATION", "2020-08-22",
"subject1", 3, "WITHDRAWAL BY SUBJECT", "2020-05-01",
"subject2", 1, "INFORMED CONSENT", "2020-07-13",
"subject3", 1, "INFORMED CONSENT", "2020-06-03",
"subject4", 1, "INFORMED CONSENT", "2021-01-01",
"subject4", 2, "RANDOMIZATION", "2023-01-01"
)
dcut <- create_dcut(
dataset_ds = ds,
ds_date_var = DSSTDTC,
filter = DSDECOD == "RANDOMIZATION",
cut_date = "2022-01-01",
cut_description = "Clinical Cutoff Date"
)
Run the code above in your browser using DataLab