The R Project SVN R

Rev

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

Rev 41593 Rev 41600
Line 57... Line 57...
57 
                    name <- table$insert(e)
 57 
                    name <- table$insert(e)
58 
                    data <- list(bindings = envlist(e),
 58 
                    data <- list(bindings = envlist(e),
59 
                                 enclos = parent.env(e))
 59 
                                 enclos = parent.env(e))
60 
                    key <- lazyLoadDBinsertValue(data, datafile, ascii,
 60 
                    key <- lazyLoadDBinsertValue(data, datafile, ascii,
61 
                                                 compress, envhook)
 61 
                                                 compress, envhook)
62 
                    assign(name, key, env = envenv)
 62 
                    assign(name, key, envir = envenv)
63 
                }
 63 
                }
64 
                name
 64 
                name
65 
            }
 65 
            }
66 
        }
 66 
        }
67 
 
 67 
 
Line 81... Line 81...
81 
            if (is.environment(from))
 81 
            if (is.environment(from))
82 
                key <- lazyLoadDBinsertVariable(vars[i], from, datafile,
 82 
                key <- lazyLoadDBinsertVariable(vars[i], from, datafile,
83 
                                                ascii, compress,  envhook)
 83 
                                                ascii, compress,  envhook)
84 
            else key <- lazyLoadDBinsertListElement(from, i, datafile, ascii,
 84 
            else key <- lazyLoadDBinsertListElement(from, i, datafile, ascii,
85 
                                                    compress, envhook)
 85 
                                                    compress, envhook)
86 
            assign(vars[i], key, env = varenv)
 86 
            assign(vars[i], key, envir = varenv)
87 
        }
 87 
        }
88 
 
 88 
 
89 
        vals <- lapply(vars, get, env = varenv, inherits = FALSE)
 89 
        vals <- lapply(vars, get, envir = varenv, inherits = FALSE)
90 
        names(vals) <- vars
 90 
        names(vals) <- vars
91 
 
 91 
 
92 
        rvars <- ls(envenv, all = TRUE)
 92 
        rvars <- ls(envenv, all = TRUE)
93 
        rvals <- lapply(rvars, get, env = envenv, inherits = FALSE)
 93 
        rvals <- lapply(rvars, get, envir = envenv, inherits = FALSE)
94 
        names(rvals) <- rvars
 94 
        names(rvals) <- rvars
95 
 
 95 
 
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)