"sethelp" <-
function(opt=1) {
set <- c(FALSE, FALSE, FALSE)
#if (opt %in% 1:3)
set[opt] <- TRUE
options(winhelp=set[1])
options(htmlhelp=set[2])
options(chmhelp=set[3])
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.