Browse files

Show startup message only in interactive sessions

  • Loading branch information...
1 parent bfe9097 commit db28fb692e0d36b9f5afd7a425404768873dcdd0 @wch wch committed Jul 12, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 R/zzz.r
View
2 R/zzz.r
@@ -1,5 +1,5 @@
.onAttach <- function(...) {
- if (stats::runif(1) > 0.1) return()
+ if (!interactive() || stats::runif(1) > 0.1) return()
tips <- c(
"Need help? Try the ggplot2 mailing list: http://groups.google.com/group/ggplot2.",

0 comments on commit db28fb6

Please sign in to comment.