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