GuessEncoding <- function(filename) {
# Guesses the encoding of a file.
cmd <- sprintf("file --mime-encoding %s", filename)
strsplit(system(cmd, intern=TRUE), " ")[[1]][2]
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.