randomstring <- function(n=1, length=12) {
randomString <- c(1:n)
for (i in 1:n) {
randomString[i] <- paste(sample(c(0:9, letters, LETTERS), length, replace=TRUE),collapse="")
}
return(randomString)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.