#' @title Trim leading and trailing spaces from a string
#'
#' @param x the string to be cleaned
#' @return a string with leading and trailing spaces removed
#' @author Marco Bascietto \email{marco@@bascietto.name}
trim <- function(x) {
gsub("^\\s+|\\s+$", "", x)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.