R/zzz.R

In dragracer: Data Sets for RuPaul's Drag Race

.onAttach <- function(libname, pkgname) {
  ru_quotes <- c(
    # paste("Now sissy that walk", emo::ji("dancing")),
    paste("Now sissy that walk"),
    #paste("She done already done had herses", emo::ji("partying")),
    paste("She done already done had herses"),
    # paste("The library is now open", emo::ji("book")))
    paste("The library is now open"))
  greeting <- sample(ru_quotes, 1)
  packageStartupMessage(greeting)
}