## File Name: zzz.R
## File Version: 1.242
# zzz.R
#
# This function is simply copied from the mice package.
# on attach sirt
.onAttach <- function(libname,pkgname)
{
d <- utils::packageDescription('sirt')
d1 <- d$Version
packageStartupMessage(
paste('- ', d$Package,' ', d1,' (',d$Date,')',sep='') )
}
version <- function(pkg='sirt')
{
lib <- dirname(system.file(package=pkg))
d <- utils::packageDescription(pkg)
return( paste(d$Package,d$Version,d$Date,lib))
}
xx <- function(f1=1, f2=1)
{
v1 <- paste0( rep(' ',f1), collapse='' )
v2 <- paste0( rep(' ',f2), collapse='' )
res <- paste0( v1, '=', v2)
return(res)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.