# NOT RUN {
f = system.file("samples", "results-multi.R", package = "CodeDepends")
sc = readScript(f)
info = as(sc, "ScriptInfo")
info = getInputs(sc, basedir = dirname(f))
# Providing our own handler for calls to source()
sourceHandler = function(e, collector = NULL, basedir = ".", ...) {
collector$string(e[[2]], , TRUE)
collector$calls(as.character(e[[1]]))
}
h = CodeDepends:::inputCollector(source = sourceHandler)
info = getInputs(sc, h, basedir = dirname(f))
# }
# NOT RUN {
u = url("http://www.omegahat.net/CodeDepends/formula.R")
sc = readScript(u)
as(sc, "ScriptInfo")
# }
Run the code above in your browser using DataCamp Workspace