functions_at_pos <-
function(pos, all.names=FALSE) {
Filter(is.function, sapply(ls(pos=pos, all.names=all.names), get, pos=pos))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.