#' @export
get_seed <- function(){
seed <- as.integer(Sys.time())
function(){
seed <<- seed + 1
if (seed > .Machine$integer.max) seed <<- 0
return(seed)
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.