.onAttach <- function(...) {
os <- oblique()
n <- nchar(os)
filler <- paste(rep("#", n), collapse = "")
os <- paste("\n\t", filler, "\n\t", os, "\n\t", filler, "\n")
packageStartupMessage(os)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.