gistfile1.r

function (output = stdout(), envir = parent.frame()) 
{
    sunk <- FALSE
    if (!missing(output)) {
        sunk <- TRUE
        sink(output)
    }
    text <- get("text")
    brew.cat <- function(from, to) cat(text[from:to], sep = "", 
        collapse = "")
    .prev.brew.cat <- NULL
    if (exists(".brew.cat", envir = envir)) {
        .prev.brew.cat <- get(".brew.cat", pos = envir)
    }
    assign(".brew.cat", brew.cat, envir = envir)
    code <- get("code")
    ret <- try(eval(code, envir = envir))
    if (sunk && unclass(output) != 1) 
        sink()
    if (!is.null(.prev.brew.cat)) {
        assign(".brew.cat", .prev.brew.cat, envir = envir)
    }
    else {
        rm(".brew.cat", envir = envir)
    }
    invisible(ret)
}
<environment: 0x604fed0>