The R Project SVN R

Rev

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

Rev 41580 Rev 41593
Line 8... Line 8...
8 
        stop("may already be using lazy loading on base");
 8 
        stop("may already be using lazy loading on base");
9 
 
 9 
 
10 
    loadenv <- new.env(hash = TRUE, parent = .GlobalEnv)
 10 
    loadenv <- new.env(hash = TRUE, parent = .GlobalEnv)
11 
    sys.source(baseFileBase, loadenv, keep.source = FALSE)
 11 
    sys.source(baseFileBase, loadenv, keep.source = FALSE)
12 
 
 12 
 
13 
    basevars <- ls(loadenv, all=TRUE)
 13 
    basevars <- ls(loadenv, all.names=TRUE)
14 
    basevars <- basevars[! basevars %in% omit]
 14 
    basevars <- basevars[! basevars %in% omit]
15 
    for(n in basevars) {
 15 
    for(n in basevars) {
16 
        f <- get(n, loadenv, inherits=FALSE)
 16 
        f <- get(n, loadenv, inherits=FALSE)
17 
        if(is.function(f)) {
 17 
        if(is.function(f)) {
18 
            if(identical(environment(f), loadenv)) {
 18 
            if(identical(environment(f), loadenv)) {