Only display startup message on attach, not load

hadley · hadley · commit 0c5fc801bc2a · 2011-12-23T13:49:25.000-06:00
diff --git a/R/zzz.r b/R/zzz.r
@@ -6,7 +6,7 @@ tips <- c(
   "Use suppressPackageStartupMessages to eliminate package startup messages."
 )  
 
-.onLoad <- function(...) {
+.onAttach <- function(...) {
   if (stats::runif(1) > 0.1) return()
   
   tip <- sample(tips, 1)

Original file line number	Diff line number	Diff line change
`@@ -6,7 +6,7 @@ tips <- c(`
`6`	`6`	`"Use suppressPackageStartupMessages to eliminate package startup messages."`
`7`	`7`	`)`
`8`	`8`
`9`		`-.onLoad <- function(...) {`
	`9`	`+.onAttach <- function(...) {`
`10`	`10`	`if (stats::runif(1) > 0.1) return()`
`11`	`11`
`12`	`12`	`tip <- sample(tips, 1)`