db = edc_example()
db$enrol$subjid %>% head() #double vector
db2 = edc_unify_subjid(db)
db2$enrol$subjid %>% head() #factor with 50 levels
db3 = edc_unify_subjid(db, preprocess=function(x) paste0("#", x))
db3$enrol$subjid %>% head()
#use numeric mode to get a numeric output
db4 = edc_unify_subjid(db, preprocess=function(x) as.numeric(x)+1, mode="numeric")
db4$enrol$subjid %>% head()
Run the code above in your browser using DataLab