The R Project SVN R

Rev

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

Rev 59854 Rev 67493
Line 49... Line 49...
49 
local({
 49 
local({
50 
    br <- Sys.getenv("R_BROWSER", NA_character_)
 50 
    br <- Sys.getenv("R_BROWSER", NA_character_)
51 
    if(!is.na(br)) options(browser = br)
 51 
    if(!is.na(br)) options(browser = br)
52 
    tests_startup <- Sys.getenv("R_TESTS")
 52 
    tests_startup <- Sys.getenv("R_TESTS")
53 
    if(nzchar(tests_startup)) source(tests_startup)
 53 
    if(nzchar(tests_startup)) source(tests_startup)
- 
 
 54 
    ca_cert <- Sys.getenv("CURL_CA_BUNDLE", NA_character_)
- 
 
 55 
    if(!is.na(ca_cert) &&
- 
 
 56 
       file.exists(ca_path <- file.path(R.home("etc"), "curl-ca-bundle.crt")))
- 
 
 57 
        Sys.setenv(CURL_CA_BUNDLE = ca_path)
54 
})
 58 
})