Nothing
.onAttach <- function(libname, pkgname){
# require(utils)
desc <- utils::packageDescription("SSRA")
d1 <- desc$Version
nk <- paste0(rep(" ", 20 - nchar(d1)))
packageStartupMessage("|-----------------------------------------|\n",
paste0("| ", desc$Package, " ", d1," (",desc$Date,")"), nk, " |\n" ,
"| Sakai Sequential Relation Analysis |\n" ,
"|-----------------------------------------|")
}
version <- function(pkg = "SSRA") {
lib <- dirname(system.file(package = pkg))
desc <- utils::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.