ex <- data.frame(
USUBJID = rep(c("UXYZ123a"), 13),
EXSTDTC = c(
"", "2022", "2022-06", "2022-06-23", "2022-06-23T16", "2022-06-23T16:57",
"2022-06-23T16:57:30", "2022-06-23T16:57:30.123", "2022-06-23T16:-:30",
"2022-06-23T-:57:30", "2022-06--T16:57:30", "2022---23T16:57:30", "--06-23T16:57:30"
)
)
ex_imputed <- impute_sdtm(dsin = ex, varin = EXSTDTC, varout = DCUT_TEMP_EXSTDTC)
Run the code above in your browser using DataLab