R/getScriptGlobals.R

In duncantl/CodeAnalysis: Tools for Static Analysis of R code

Defines functions getScriptGlobals

Documented in getScriptGlobals

getScriptGlobals =
function(file, ...)
{
    if(is.language(file))
        e = file
    else
        e = parse(file)
    
    f = function() {}
    body(f)[seq(along = e) + 1] = e
    getGlobals(f, ...)
}