# Print a value, including whitespace to play well
# with testthat formatting, and return it
echo <- function (desc)
{
cat(paste0('\n',desc,'\n'))
desc
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.