## Verify 'digest' output
suppressMessages(library(filehash))
suppressMessages(library(digest))
x <- 1:100
bytes <- serialize(x, NULL)
digest(bytes, algo = "sha1", skip = 14L, serialize = FALSE)
filehash:::sha1(x)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.