The R Project SVN R

Rev

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

Rev 36174 Rev 41531
Line 96... Line 96...
96 
        val <- list(variables = vals, references = rvals,
 96 
        val <- list(variables = vals, references = rvals,
97 
                    compressed = compress)
 97 
                    compressed = compress)
98 
       .saveRDS(val, mapfile)
 98 
       .saveRDS(val, mapfile)
99 
    }
 99 
    }
100 
 
 100 
 
101 
    omit <- c(".Last.value", ".AutoloadEnv")
 101 
    omit <- c(".Last.value", ".AutoloadEnv", ".BaseNamespaceEnv",
- 
 
 102 
              ".Device", ".Devices", ".Machine", ".Options", ".Platform")
102 
 
 103 
 
103 
    if (length(search()[search()!="Autoloads"]) != 2)
 104 
    if (length(search()[search()!="Autoloads"]) != 2)
104 
        stop("start R with NO packages loaded to create the data base")
 105 
        stop("start R with NO packages loaded to create the data base")
105 
 
 106 
 
106 
    baseFileBase <- file.path(.Library,"base","R","base")
 107 
    baseFileBase <- file.path(.Library,"base","R","base")
107 
 
 108 
 
108 
    if (file.info(baseFileBase)["size"] < 20000) # crude heuristic
 109 
    if (file.info(baseFileBase)["size"] < 20000) # crude heuristic
109 
        stop("may already be using lazy loading on base");
 110 
        stop("may already be using lazy loading on base");
110 
 
 111 
 
111 
    basevars <- ls(baseenv(), all=TRUE)
 112 
    basevars <- ls(baseenv(), all=TRUE)
- 
 
 113 
    prims <- basevars[sapply(basevars, function(n) is.primitive(get(n, baseenv())))]
112 
    basevars <- basevars[! basevars %in% omit]
 114 
    basevars <- basevars[! basevars %in% c(omit, prims)]
113 
 
 115 
 
114 
# **** 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)
115 
#    basevars <- ls(baseenv(), all=TRUE)
 117 
#    basevars <- ls(baseenv(), all=TRUE)
116 
#    notPrim <- sapply(basevars, function(n)
 118 
#    notPrim <- sapply(basevars, function(n)
117 
#        ! typeof(get(n, baseenv())) %in% c("builtin","special"))
 119 
#        ! typeof(get(n, baseenv())) %in% c("builtin","special"))