Fetching contributors…
Cannot retrieve contributors at this time
22 lines (18 sloc) 816 Bytes
.onAttach <- function(...) {
if (!interactive() || stats::runif(1) > 0.1) return()
tips <- c(
"Need help? Try the ggplot2 mailing list:",
"Find out what's changed in ggplot2 at",
"Use suppressPackageStartupMessages() to eliminate package startup messages.",
"Stackoverflow is a great place to get help:",
"Need help getting started? Try the cookbook for R:",
"Want to understand how all the pieces fit together? Buy the ggplot2 book:"
tip <- sample(tips, 1)
packageStartupMessage(paste(strwrap(tip), collapse = "\n"))
release_questions <- function() {
"Have you built the book?"