.onLoad <- function(libname, pkgname) {
cowsay::say(praise::praise(), sample(names(cowsay::animals)[!names(cowsay::animals) %in% c("anxiouscat",
"fish",
"grumpycat",
"longcat",
"longtailcat",
"mushroom",
"shortcat",
"signbunny",
"stretchycat")], 1) )
register_palette()
set_aesthetics("grattan")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.