sha1 <- function(object, skip = 14L) {
## Setting 'skip = 14' gives us the same results as
## 'digest(object, "sha1")'
bytes <- serialize(object, NULL)
.Call("sha1_object", bytes, skip)
}
sha1_file <- function(filename, skip = 0L) {
.Call("sha1_file", filename, skip)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.