qccStartupMessage <- function()
{
# Startup message obtained as
# > figlet qcc
msg <- c(paste0(
" __ _ ___ ___
/ _ |/ __/ __| Quality Control Charts and
| (_| | (_| (__ Statistical Process Control
\\__ |\\___\\___|
|_| version ",
packageVersion("qcc")),
"\nType 'citation(\"qcc\")' for citing this R package in publications.")
return(msg)
}
.onAttach <- function(lib, pkg)
{
# unlock .qcc.options variable allowing its modification
unlockBinding(".qcc.options", asNamespace("qcc"))
# startup message
msg <- qccStartupMessage()
if(!interactive())
msg[1] <- paste("Package 'qcc' version", packageVersion("qcc"))
packageStartupMessage(msg)
invisible()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.