The R Project SVN R

Rev

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

Rev 33596 Rev 35450
Line 10... Line 10...
10 
            .Internal(gzfile(description, open, "native.enc", 6))
 10 
            .Internal(gzfile(description, open, "native.enc", 6))
11 
        close <- function (con) .Internal(close(con, "rw"))
 11 
        close <- function (con) .Internal(close(con, "rw"))
12 
        if (! is.character(file)) halt("bad file name")
 12 
        if (! is.character(file)) halt("bad file name")
13 
        con <- gzfile(file, "rb")
 13 
        con <- gzfile(file, "rb")
14 
        on.exit(close(con))
 14 
        on.exit(close(con))
15 
        .Internal(unserializeFromConn(con, NULL))
 15 
        .Internal(unserializeFromConn(con, baseenv()))
16 
    }
 16 
    }
17 
    "parent.env<-" <-
 17 
    "parent.env<-" <-
18 
        function (env, value) .Internal("parent.env<-"(env, value))
 18 
        function (env, value) .Internal("parent.env<-"(env, value))
19 
    along <- function(x) { n <- length(x); if (n) 1 : n else NULL }
 19 
    along <- function(x) { n <- length(x); if (n) 1 : n else NULL }
20 
    existsInFrame <- function (x, env) .Internal(exists(x, env, "any", FALSE))
 20 
    existsInFrame <- function (x, env) .Internal(exists(x, env, "any", FALSE))
21 
    getFromFrame <- function (x, env) .Internal(get(x, env, "any", FALSE))
 21 
    getFromFrame <- function (x, env) .Internal(get(x, env, "any", FALSE))
22 
    set <- function (x, value, env) .Internal(assign(x, value, env, FALSE))
 22 
    set <- function (x, value, env) .Internal(assign(x, value, env, FALSE))
23 
    environment <- function () .Internal(environment(NULL))
 23 
    environment <- function () .Internal(environment(NULL))
24 
    mkenv <- function() .Internal(new.env(TRUE, NULL))
 24 
    mkenv <- function() .Internal(new.env(TRUE, baseenv()))
25 
    names <- function(x) .Internal(names(x))
 25 
    names <- function(x) .Internal(names(x))
26 
    lazyLoadDBfetch <- function(key, file, compressed, hook)
 26 
    lazyLoadDBfetch <- function(key, file, compressed, hook)
27 
        .Call("R_lazyLoadDBfetch", key, file, compressed, hook, PACKAGE="base")
 27 
        .Call("R_lazyLoadDBfetch", key, file, compressed, hook, PACKAGE="base")
28 
 
 28 
 
29 
    #
 29 
    #
Line 89... Line 89...
89 
       ! existsInBase(n) || n == "is.ts" || n == "is.factor"
 89 
       ! existsInBase(n) || n == "is.ts" || n == "is.factor"
90 
 
 90 
 
91 
    basedb <- glue(.Internal(R.home()), "library", "base", "R",
 91 
    basedb <- glue(.Internal(R.home()), "library", "base", "R",
92 
                   "base", sep= .Platform$file.sep)
 92 
                   "base", sep= .Platform$file.sep)
93 
 
 93 
 
94 
    lazyLoad(basedb, NULL, filter)
 94 
    lazyLoad(basedb, baseenv(), filter)
95 
 
 95 
 
96 
}), .Internal(new.env(FALSE, NULL)), NULL))
 96 
}), .Internal(new.env(FALSE, baseenv())), baseenv()))