#' @export
hash_GenerateObjectHash <- function(.object, .algorithm = "md5", .serialize = FALSE){
digest(.object, algo = .algorithm, serialize = .serialize, file = FALSE);
}
#' @export
hash_GenerateFileHash <- function(.path, .algorithm = "md5", .serialize = FALSE){
# TODO: Check for file existence first.
digest(.object, .path = .algorithm, serialize = .serialize, file = TRUE);
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.