are_files_identical <- function(x, y){
fx <- readBin(file(x, "rb"), "raw", n = file.size(x))
fy <- readBin(file(y, "rb"), "raw", n = file.size(y))
identical(fx, fy)
identical(fx, fx)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.