#' Hash function for internal use
#'
#' @param valid
#' @param id
md5 <- function(valid, id = NULL)
{
if(is.null(id))
id <- 1:length(valid)
valid <- valid[order(id)]
digest(paste(valid, collapse = ''), serialize = FALSE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.