dcut <- tibble::tribble(
~USUBJID, ~DCUTDTC, ~DCUTDTM,
"01-701-1015", "2014-10-20T23:59:59", lubridate::ymd_hms("2014-10-20T23:59:59"),
"01-701-1023", "2014-10-20T23:59:59", lubridate::ymd_hms("2014-10-20T23:59:59")
)
dm <- tibble::tribble(
~USUBJID, ~DTHDTC, ~DTHFL,
"01-701-1015", "2014-10-20", "Y",
"01-701-1023", "2014-10-21", "Y",
)
special_dm_cut(
dataset_dm = dm,
dataset_cut = dcut,
cut_var = DCUTDTM
)
Run the code above in your browser using DataLab