###-*- R -*-

.Library <- file.path(R.home(), "library")
.lib.loc <- unique(c(unlist(strsplit(getenv("R_LIBS"), ";")), .Library))
if(nchar(getenv("R_PAPERSIZE")) > 0) options(papersize = as.vector(getenv("R_PAPERSIZE"))) else  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)