.onLoad <- function(libname, pkgname) {
z <- runif(1) # Necessary to initialize .Random.seed variable
zsetseed(sample(1e7, 1))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.