rm(DATA_ENV, ROOT, SEED, REFRESH)
ours <- unlist(eapply(.GlobalEnv, FUN = function(x) is(x, "stanreg") | is(x, "loo")))
ours <- names(ours[ours])
rm(list = ours)
rm(ours)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.