The R Project SVN R

Rev

Rev 88113 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 88113 Rev 88391
Line 1... Line 1...
1 
### This is the system Rprofile file. It is always run on startup.
 1 
### This is the system Rprofile file. It is always run on startup.
2 
### Additional commands can be placed in site or user Rprofile files
 2 
### Additional commands can be placed in site or user Rprofile files
3 
### (see ?Rprofile).
 3 
### (see ?Rprofile).
4 
 
 4 
 
5 
### Copyright (C) 1995-2023 The R Core Team
 5 
### Copyright (C) 1995-2025 The R Core Team
6 
 
 6 
 
7 
### Notice that it is a bad idea to use this file as a template for
 7 
### Notice that it is a bad idea to use this file as a template for
8 
### personal startup files, since things will be executed twice and in
 8 
### personal startup files, since things will be executed twice and in
9 
### the wrong environment (user profiles are run in .GlobalEnv).
 9 
### the wrong environment (user profiles are run in .GlobalEnv).
10 
 
 10 
 
Line 31... Line 31...
31 
## setting from an env variable added in 4.0.2
 31 
## setting from an env variable added in 4.0.2
32 
local({to <- as.integer(Sys.getenv("R_DEFAULT_INTERNET_TIMEOUT", 60))
 32 
local({to <- as.integer(Sys.getenv("R_DEFAULT_INTERNET_TIMEOUT", 60))
33 
    if (is.na(to) || to <= 0) to <- 60L
 33 
    if (is.na(to) || to <= 0) to <- 60L
34 
    options(timeout = to)
 34 
    options(timeout = to)
35 
})
 35 
})
- 
 
 36 
local({
- 
 
 37 
    if(nzchar(nr <- Sys.getenv("R_DEFAULT_NETRC")))
- 
 
 38 
        options(netrc = nr)
- 
 
 39 
})
36 
options(encoding = "native.enc")
 40 
options(encoding = "native.enc")
37 
options(show.error.messages = TRUE)
 41 
options(show.error.messages = TRUE)
38 
## keep in sync with PrintDefaults() in  ../../main/print.c :
 42 
## keep in sync with PrintDefaults() in  ../../main/print.c :
39 
options(scipen = 0)
 43 
options(scipen = 0)
40 
options(max.print = 99999)# max. #{entries} in internal printMatrix()
 44 
options(max.print = 99999)# max. #{entries} in internal printMatrix()