addcaption <- function#Add caption
### Add a caption to a referenced object
(key,
### identifier for the object being referenced
caption,
### The caption text
envir
### The environment where the referenced object resides
){
##details<<This is an internal function called by
##add() and label(). It should not be called directly.
varname = paste(key, 'caption', sep="")
assign(varname, caption, envir=envir)
invisible(NULL)
### Caption is updated. No return value.
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.