The R Project SVN R

Rev

Rev 80066 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 80066 Rev 81284
Line 32... Line 32...
32 
                    if (identical(v, keys[[i]]))
 32 
                    if (identical(v, keys[[i]]))
33 
                        return(vals[i])
 33 
                        return(vals[i])
34 
		NULL
 34 
		NULL
35 
	    }
 35 
	    }
36 
            getname <- function(e) find(e, envs, enames)
 36 
            getname <- function(e) find(e, envs, enames)
37 
            getenv <- function(n) find(n, enames, envs)
 - 
 
38 
            insert <- function(e) {
 37 
            insert <- function(e) {
39 
                idx <<- idx + 1
 38 
                idx <<- idx + 1
40 
                name <- paste("env", idx, sep="::")
 39 
                name <- paste("env", idx, sep="::")
41 
                envs <<- c(e, envs)
 40 
                envs <<- c(e, envs)
42 
                enames <<- c(name, enames)
 41 
                enames <<- c(name, enames)
43 
                name
 42 
                name
44 
            }
 43 
            }
45 
            list(insert = insert, getenv = getenv, getname = getname)
 44 
            list(insert = insert, getname = getname)
46 
        }
 45 
        }
47 
 
 46 
 
48 
        lazyLoadDBinsertValue <- function(value, file, ascii, compress, hook)
 47 
        lazyLoadDBinsertValue <- function(value, file, ascii, compress, hook)
49 
            .Internal(lazyLoadDBinsertValue(value, file, ascii, compress, hook))
 48 
            .Internal(lazyLoadDBinsertValue(value, file, ascii, compress, hook))
50 
 
 49