The R Project SVN R

Rev

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

Rev 60146 Rev 60153
Line 1... Line 1...
1 
local({
 1 
#  File src/library/base/makebasedb.R
2 
    makeLazyLoadDB <- function(from, filebase, compress = TRUE, ascii = FALSE,
 2 
#  Part of the R package, http://www.R-project.org
3 
#
 3 
#
4 
#  Copyright (C) 1995-2012 The R Core Team
 4 
#  Copyright (C) 1995-2012 The R Core Team
- 
 
 5 
#
- 
 
 6 
#  This program is free software; you can redistribute it and/or modify
- 
 
 7 
#  it under the terms of the GNU General Public License as published by
- 
 
 8 
#  the Free Software Foundation; either version 2 of the License, or
- 
 
 9 
#  (at your option) any later version.
- 
 
 10 
#
- 
 
 11 
#  This program is distributed in the hope that it will be useful,
- 
 
 12 
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
- 
 
 13 
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- 
 
 14 
#  GNU General Public License for more details.
- 
 
 15 
#
- 
 
 16 
#  A copy of the GNU General Public License is available at
- 
 
 17 
#  http://www.r-project.org/Licenses/
- 
 
 18 
 
- 
 
 19 
local({
- 
 
 20 
    makeLazyLoadDB <- function(from, filebase, compress = TRUE, ascii = FALSE,
5 
                               variables) {
 21 
                               variables) {
6 
 
 22 
 
7 
        envlist <- function(e) {
 23 
        envlist <- function(e) {
8 
            names <- ls(e, all=TRUE)
 24 
            names <- ls(e, all=TRUE)
9 
            list <- .Call("R_getVarsFromFrame", names, e, FALSE, PACKAGE="base")
 25 
            list <- .Call("R_getVarsFromFrame", names, e, FALSE, PACKAGE="base")