Nothing
#' @importFrom utils packageDescription
#'
.onAttach <- function(libname, pkgname) {
desc <- packageDescription("misty")
d1 <- desc$Version
nk <- paste0(rep(" ", 17 - nchar(d1)))
packageStartupMessage("|-------------------------------------|\n",
paste0("| ", desc$Package, " ", d1," (", substring(desc$Date, first = 1, last = 10), ")"), nk,"|\n" ,
"| Miscellaneous Functions T. Yanagida |\n" ,
"|-------------------------------------|" )
}
version <- function(pkg = "misty") {
lib <- dirname(system.file(package = pkg))
desc <- packageDescription(pkg)
return(paste(desc$Package, desc$Version, desc$Date,lib))
}
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.