The R Project SVN R

Rev

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

Rev 41531 Rev 41593
Line 107... Line 107...
107 
    baseFileBase <- file.path(.Library,"base","R","base")
 107 
    baseFileBase <- file.path(.Library,"base","R","base")
108 
 
 108 
 
109 
    if (file.info(baseFileBase)["size"] < 20000) # crude heuristic
 109 
    if (file.info(baseFileBase)["size"] < 20000) # crude heuristic
110 
        stop("may already be using lazy loading on base");
 110 
        stop("may already be using lazy loading on base");
111 
 
 111 
 
112 
    basevars <- ls(baseenv(), all=TRUE)
 112 
    basevars <- ls(baseenv(), all.names=TRUE)
113 
    prims <- basevars[sapply(basevars, function(n) is.primitive(get(n, baseenv())))]
 113 
    prims <- basevars[sapply(basevars, function(n) is.primitive(get(n, baseenv())))]
114 
    basevars <- basevars[! basevars %in% c(omit, prims)]
 114 
    basevars <- basevars[! basevars %in% c(omit, prims)]
115 
 
 115 
 
116 
# **** need prims too since some prims have several names (is.name, is.symbol)
 116 
# **** need prims too since some prims have several names (is.name, is.symbol)
117 
#    basevars <- ls(baseenv(), all=TRUE)
 117 
#    basevars <- ls(baseenv(), all=TRUE)