.onLoad <- function(libname, pkgname)
{
if (interactive())
RdymEnable()
invisible()
}
.onAttach <- function(...)
{
if (!interactive())
packageStartupMessage("NOTE: The Rdym package can only be used interactively.")
invisible()
}
.onUnload <- function(libpath)
{
RdymDisable()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.