The R Project SVN R

Rev

Rev 53775 | Rev 80243 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 53775 Rev 59854
Line 17... Line 17...
17 
 
 17 
 
18 
invisible(.libPaths(c(unlist(strsplit(Sys.getenv("R_LIBS"), ";")),
 18 
invisible(.libPaths(c(unlist(strsplit(Sys.getenv("R_LIBS"), ";")),
19 
                      unlist(strsplit(Sys.getenv("R_LIBS_USER"), ";"))
 19 
                      unlist(strsplit(Sys.getenv("R_LIBS_USER"), ";"))
20 
                      )))
 20 
                      )))
21 
 
 21 
 
- 
 
 22 
local({
- 
 
 23 
    popath <- Sys.getenv("R_TRANSLATIONS", "")
- 
 
 24 
    if(!nzchar(popath)) {
- 
 
 25 
        paths <- file.path(.libPaths(), "translations", "DESCRIPTION")
- 
 
 26 
        popath <- dirname(paths[file.exists(paths)][1])
- 
 
 27 
    }
- 
 
 28 
    bindtextdomain("R", popath)
- 
 
 29 
    bindtextdomain("R-base", popath)
- 
 
 30 
    bindtextdomain("RGui", popath)
- 
 
 31 
    assign(".popath", popath, .BaseNamespaceEnv)
- 
 
 32 
})
- 
 
 33 
 
22 
if(nzchar(Sys.getenv("R_PAPERSIZE"))) {
 34 
if(nzchar(Sys.getenv("R_PAPERSIZE"))) {
23 
    options(papersize = Sys.getenv("R_PAPERSIZE"))
 35 
    options(papersize = Sys.getenv("R_PAPERSIZE"))
24 
} else {
 36 
} else {
25 
    if(grepl("(canada|united.states)", Sys.getlocale("LC_MONETARY"),
 37 
    if(grepl("(canada|united.states)", Sys.getlocale("LC_MONETARY"),
26 
             ignore.case = TRUE)) options(papersize = "letter")
 38 
             ignore.case = TRUE)) options(papersize = "letter")