# highr:::escape_html
# by Yihui Xie, GPL license
# https://github.com/yihui/highr/blob/4f54a5b8960d6246daadacea1020ebcdc458ce50/R/utils.R#L54-L61
escape_html <- function(x) {
x <- gsub("&", "&", x)
x <- gsub("<", "<", x)
x <- gsub(">", ">", x)
x <- gsub('"', """, x)
x
}
escape_backslash <- function(x) {
gsub("\\\\", "\\\\\\\\", x)
}
utils::globalVariables(c("loc", "type"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.