trimws <- function(x) {
whitespace <- "[ \t\r\n]"
mysub <- function(re, x) sub(re, "", x, perl = TRUE)
mysub(paste0(whitespace, "+$"), mysub(paste0("^", whitespace, "+"), x))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.