The R Project SVN R

Rev

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

Rev 30983 Rev 30994
Line 101... Line 101...
101 
    omit <- c(".Last.value", ".AutoloadEnv")
 101 
    omit <- c(".Last.value", ".AutoloadEnv")
102 
 
 102 
 
103 
    if (length(search()[search()!="Autoloads"]) != 2)
 103 
    if (length(search()[search()!="Autoloads"]) != 2)
104 
        stop("start R with NO packages loaded to create the data base")
 104 
        stop("start R with NO packages loaded to create the data base")
105 
 
 105 
 
106 
    baseFileBase <- file.path(.libPaths()[1],"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(NULL,all=TRUE)