Nothing
welcome<- function(){
msg <- c(paste0(
"Welcome to
_____ ______________________
| | | |
| | | |
| | | _________ |
| | | | | |
| | | | | |
| | ____________________ ____________________ | |________| |
| | | | | | | |
| |______________ | | | | | |
| | | ______________| | ______________| | ______________|
| | | | | | | |
| _________ | | | | | | |
| | | | | | | | | |
| | | | | | | | | |
| |________| | | |______________ | |______________ | |
| | | | | | | |
| | | | | | | |
|____________________| |____________________| |____________________| |_____| version ",
packageVersion("bccp")),"\nType 'citation(\"bccp\")' for citing this R package in publications.")
return(msg)
}
.onAttach <- function(libname, pkgname) {
mess <- welcome()
if(!interactive())
mess[1] <- paste("Package 'bccp' version", packageVersion("bccp"))
packageStartupMessage(mess)
invisible()
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.