###-*- R -*- Unix Specific ----
.Library <- paste(getenv("RHOME"), "library", sep = "/")

.lib.loc <- unique(c(unlist(strsplit(getenv("RLIBS"), ":")), .Library))

options(papersize = as.vector(getenv("R_PAPERSIZE")))
options(printcmd = as.vector(getenv("R_PRINTCMD")))
options(latexcmd = as.vector(getenv("R_LATEXCMD")))
options(dvipscmd = as.vector(getenv("R_DVIPSCMD")))
options(device = if(interactive() && getenv("DISPLAY") != "")
        "X11" else "postscript")
options(browser = "netscape")

## .First <- function() {
##    if (interactive() && getenv("DISPLAY") != "") x11()
## } 
options(pager = "${RHOME}/bin/pager")