The R Project SVN R

Rev

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

Rev 41972 Rev 41975
Line 22... Line 22...
22 
    existsInFrame <- function (x, env) .Internal(exists(x, env, "any", FALSE))
 22 
    existsInFrame <- function (x, env) .Internal(exists(x, env, "any", FALSE))
23 
    getFromFrame <- function (x, env) .Internal(get(x, env, "any", FALSE))
 23 
    getFromFrame <- function (x, env) .Internal(get(x, env, "any", FALSE))
24 
    set <- function (x, value, env) .Internal(assign(x, value, env, FALSE))
 24 
    set <- function (x, value, env) .Internal(assign(x, value, env, FALSE))
25 
    environment <- function () .Internal(environment(NULL))
 25 
    environment <- function () .Internal(environment(NULL))
26 
    mkenv <- function() .Internal(new.env(TRUE, baseenv(), 29L))
 26 
    mkenv <- function() .Internal(new.env(TRUE, baseenv(), 29L))
27 
    ## lazyLoadDBfetch <- function(key, file, compressed, hook)
 - 
 
28 
    ##    .Call("R_lazyLoadDBfetch", key, file, compressed, hook, PACKAGE="base")
 - 
 
29 
 
 27 
 
30 
    ##
 28 
    ##
31 
    ## main body
 29 
    ## main body
32 
    ##
 30 
    ##
33 
    mapfile <- glue(filebase, "rdx", sep = ".")
 31 
    mapfile <- glue(filebase, "rdx", sep = ".")