switch_ctype <- function(mode = c("C", "Unicode"))
{
mode <- match.arg(mode)
if (mode == "Unicode") {
sysname <- Sys.info()[["sysname"]]
if (sysname == "Windows") {
ctype <- "English_United States.1252"
} else if (sysname == "Darwin") {
ctype <- "UTF-8"
} else {
ctype <- "en_US.utf8"
}
} else {
ctype <- "C"
}
ctype0 <- Sys.getlocale("LC_CTYPE")
suppressWarnings({
Sys.setlocale("LC_CTYPE", ctype)
})
if (Sys.getlocale("LC_CTYPE") != ctype) {
skip(paste0("Cannot change locale to '", ctype, "'"))
}
ctype0
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.