#' Fold long string across multiple lines
#'
#' @param s string
#' @seealso https://stackoverflow.com/questions/2351744/insert-line-breaks-in-long-string-word-wrap
#' @export
fold <- function(s) {
gsub('(.{1,80})(\\s|$)', '\\1\n', s)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.