My challenge was to generate random codes of variable length and size. The codes should be all unique and build of alphanumeric symbols. I wrote the following function using the build-in function sample():<\/p>\n
alpha.rnd <- function(length, size) {\r\n\tif(size > 36^length) stop(\"\\n size cannot be greater than 36^length\")\r\n\tb <- NULL\r\n\trepeat {\r\n\t\ta <- NULL\t\r\n\t\tfor (i in 1:length) {\r\n\t\t\ta <- paste0(sample(c(letters, 0:9), size, replace = TRUE), a)\r\n\t\t}\r\n\t\tb <- c(a,b)\r\n\t\tif(sum(duplicated(b)) == 0) break\r\n\t \tsize = sum(duplicated(b))\r\n\t\tb <- b[!duplicated(b)]\t\t\r\n\t}\r\n\treturn(b)\r\n}<\/pre>\nExample:<\/p>\n
> set.seed(77)\r\n> alpha.rnd(3,5)\r\n[1] \"5qk\" \"94z\" \"f45\" \"au8\" \"qq0\"<\/pre>\nEnjoy!<\/p>\n","protected":false},"excerpt":{"rendered":"
My challenge was to generate random codes of variable length and size. The codes should be all unique and build of alphanumeric symbols. I wrote the following function using the build-in function sample(): alpha.rnd <- function(length, size) { if(size > 36^length) stop(“\\n size cannot be greater than 36^length”) b <- NULL repeat { a <- … Continue reading The Beauty of Unique Alphanumeric Random Codes<\/span>