## .on(Load|Unload) ####################################################
nsLoaded <- function() any("epigrowthfit" == loadedNamespaces())
soLoaded <- function() any("epigrowthfit" == names(getLoadedDLLs()))
loadNamespace("epigrowthfit")
stopifnot(nsLoaded(), soLoaded())
unloadNamespace("epigrowthfit")
stopifnot(!nsLoaded(), !soLoaded())
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.