Nothing
hash_file <- function(path) {
stopifnot(length(path) == 1L)
secretbase::siphash13(file = path)
}
hash_object <- function(object) {
secretbase::siphash13(x = object)
}
hash_null <- hash_object(object = NULL)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.