.onLoad <- function(libname, pkgname)
{
if (interactive())
options(error=stop_dym)
invisible()
}
.onUnload <- function(libpath)
{
options(error=NULL)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.