id_generator <- function(n, key) {
paste0(toupper(key),
stringr::str_pad(sample(900000, n, replace = FALSE),
width = 11, pad = "0"))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.