The R Project SVN R

Rev

Rev 30225 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed 

dput <- function(x, file = "", control = "showAttributes")
{
    if(is.character(file))
        if(nchar(file) > 0) {
            file <- file(file, "wt")
            on.exit(close(file))
        } else file <- stdout()
    opts <- .deparseOpts(control)
    .Internal(dput(x, file, opts))
}

dget <- function(file)
    eval(parse(file = file))