1
2
3.onLoad <- function(libname, pkgname){
4  # turn off color printing for dumb terminals
5  term <- tolower(trimws(Sys.getenv("TERM")))
6  if ( identical( term, "dumb" ) ){
7    options(tt.pr.color=FALSE)
8  }
9
10}
11
12
13