R/zzz.R

In grattan/grattantheme: Create Graphs in the Grattan Institute Style

.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")

}