#' Test function that prints a message.
#'
#' This is just to test out the suppression of messages.
#'
#' @return Single logical \code{TRUE}.
#'
#' @export
testfunc <- function()
{
message("Hello from inside testfunc.")
invisible(TRUE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.