###-*- R -*-

.Library <- file.path(R.home(), "library")
.lib.loc <- unique(c(unlist(strsplit(getenv("R_LIBS"), ";")), .Library))
options(papersize="a4")
options(device="windows")
options(editor="notepad")
if(any(grep("--ess", commandArgs()))) options(pager="console") else options(pager="internal")
#options(pager="internal")
options(unzip="internal")
options(mailer = "none")
options(width=80)