Nothing
print.DSpat.version <- function()
{ library(help=DSpat)$info[[1]] -> version
version <- version[pmatch("Version",version)]
if(!is.null(version)){
um <- strsplit(version," ")[[1]]
version <- um[nchar(um)>0][2]
}
hello <- paste("This is DSpat ",version,"\n",sep="")
packageStartupMessage(hello)
}
.onAttach <- function(...)
{
print.DSpat.version()
}
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.