if (FALSE) {
mrns <- sample(1e4:1e7, size = 10) #Simulate MRNs
#MGH format
pretty_mrn(v = mrns, prefix = "MGH")
#BWH format
pretty_mrn(v = mrns, prefix = "BWH")
#Multiple sources using space as a separator
pretty_mrn(v = mrns[1:3], prefix = c("MGH", "BWH", "EMPI"), sep = " ")
#Keeping the length of the IDs despite not adhering to the requirements
pretty_mrn(v = mrns, prefix = "EMPI", id_length = "asis")
}
Run the code above in your browser using DataLab