The R Project SVN R

Rev

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

Rev 30994 Rev 35450
Line 106... Line 106...
106 
    baseFileBase <- file.path(.Library,"base","R","base")
 106 
    baseFileBase <- file.path(.Library,"base","R","base")
107 
 
 107 
 
108 
    if (file.info(baseFileBase)["size"] < 20000) # crude heuristic
 108 
    if (file.info(baseFileBase)["size"] < 20000) # crude heuristic
109 
        stop("may already be using lazy loading on base");
 109 
        stop("may already be using lazy loading on base");
110 
 
 110 
 
111 
    basevars <- ls(NULL,all=TRUE)
 111 
    basevars <- ls(baseenv(), all=TRUE)
112 
    basevars <- basevars[! basevars %in% omit]
 112 
    basevars <- basevars[! basevars %in% omit]
113 
 
 113 
 
114 
# **** need prims too since some prims have several names (is.name, is.symbol)
 114 
# **** need prims too since some prims have several names (is.name, is.symbol)
115 
#    basevars <- ls(NULL,all=TRUE)
 115 
#    basevars <- ls(baseenv(), all=TRUE)
116 
#    notPrim <- sapply(basevars, function(n)
 116 
#    notPrim <- sapply(basevars, function(n)
117 
#        ! typeof(get(n, NULL)) %in% c("builtin","special"))
 117 
#        ! typeof(get(n, baseenv())) %in% c("builtin","special"))
118 
#    makeLazyLoadDB(NULL, baseFileBase, variables = basevars[notPrim])
 118 
#    makeLazyLoadDB(baseenv(), baseFileBase, variables = basevars[notPrim])
119 
 
 119 
 
120 
    makeLazyLoadDB(NULL, baseFileBase, variables = basevars)
 120 
    makeLazyLoadDB(baseenv(), baseFileBase, variables = basevars)
121 
#    q(save = "no", runLast = FALSE)
 121 
#    q(save = "no", runLast = FALSE)
122 
})
 122 
})