R/id_generator.r

id_generator <- function(n, key) {
  paste0(toupper(key), 
         stringr::str_pad(sample(900000, n, replace = FALSE), 
                          width = 11, pad = "0"))
}
leoluyi/EOLembrainToolbox documentation built on May 21, 2019, 5:08 a.m.