.onAttach <- function(...) {
version <- library(help=anomalous)$info[[1]]
version <- version[pmatch("Version", version)]
um <- strsplit(version, " ")[[1]]
version <- um[nchar(um) > 0][2]
packageStartupMessage(paste("This is anomalous", version, "\n"))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.