# generate a random 8-digit hexadecimal string
rhex <- function() {
paste(as.raw(sample.int(256L, 4, TRUE) - 1L), collapse = "")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.