The R Project SVN R

Rev

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

Rev 27733 Rev 27742
Line 46... Line 46...
46 
 
 46 
 
47 
.First.sys <- function()
 47 
.First.sys <- function()
48 
{
 48 
{
49 
    last <- rev(getOption("defaultPackages"))[1]
 49 
    last <- rev(getOption("defaultPackages"))[1]
50 
    for(pkg in getOption("defaultPackages")) {
 50 
    for(pkg in getOption("defaultPackages")) {
51 
        res <- require(pkg, quietly = TRUE, warn.conflicts = (pkg != last),
 51 
        res <- require(pkg, quietly = TRUE, warn.conflicts = FALSE,
52 
                       character.only = TRUE, save = FALSE)
 52 
                       character.only = TRUE, save = FALSE)
53 
        if(!res)
 53 
        if(!res)
54 
            warning("package ", pkg,
 54 
            warning("package ", pkg,
55 
                    ' in options("defaultPackages") was not found', call.=FALSE)
 55 
                    ' in options("defaultPackages") was not found', call.=FALSE)
56 
    }
 56 
    }