R/NSE.R

Defines functions isNSE findNSE

Documented in findNSE

findNSE =
function(code, asNodes = TRUE)
{
    code = to_ast(code)
    find_nodes(code, isNSE)
#  if(length(idx))
#      lapply(idx, function(i) code[[i]])
#  else
#      list()
}

NSEFunNames = c("eval", "evalq", "get", "assign", "rm", "eval.parent", "exists")

isNSE =
function(node, nseFunNames = NSEFunNames)
{
    is(node, "Call") && is(node$fn, "Symbol") && node$fn$value %in% nseFunNames
}
duncantl/CodeAnalysis documentation built on Aug. 25, 2024, 10:10 a.m.