#' @export
hasheq <- function(x) {
UseMethod("hasheq")
}
#' @import digest
#' @export
hasheq.default <- function(x) {
attributes(x) <- NULL
key <- serialize(x, NULL, version = 3)
digest(key, algo = "xxhash64", raw = TRUE, ascii = FALSE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.