explorations/project_summary/findFuns.R

getAssigns =
function(file, e = parse(file))
{
  sapply(e, isSimpleAssign)  
}

isSimpleAssign =
function(x) 
{
  is.call(x) && x[[1]] %in% c("<-", "=") && is.name(x[[2]])
}

findFuns =
function()    
{

}
duncantl/CodeAnalysis documentation built on May 9, 2024, 3:04 a.m.