Nothing
## messages with start and end
.onAttach <- function(...){
## Retrieve Year Information
date <- date()
x <- regexpr("[0-9]{4}", date)
this.year <- substr(date, x[1], x[1] + attr(x, "match.length") - 1)
# Retrieve Current Version
this.version = packageVersion("CovTools")
## Print on Screen
packageStartupMessage("**--------------------------------------------------------**")
packageStartupMessage("** CovTools")
packageStartupMessage("** - Geometric & Statistical Tools for Covariance Matrices.")
packageStartupMessage("** ")
packageStartupMessage("** Version : ",this.version," (",this.year,")",sep="")
packageStartupMessage("** Authors : Kyoungjae Lee, Lizhen Lin, and Kisung You")
packageStartupMessage("** Maintainer : Kisung You (kisungyou@outlook.com)")
packageStartupMessage("**")
packageStartupMessage("** Please share any bugs or suggestions to the maintainer.")
packageStartupMessage("**--------------------------------------------------------**")
}
.onUnload <- function(libpath) {
library.dynam.unload("CovTools", libpath)
}
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.