# NOT RUN {
f = system.file("samples", "cleanVars.R", package = "CodeDepends")
sc = readScript(f)
findWhenUnneeded("x", sc)
findWhenUnneeded(c("x", "y"), sc)
# z is never used
findWhenUnneeded("z", sc)
findWhenUnneeded("z", sc, end = 1L)
code = addRemoveIntermediates(f)
# Note that rm(x), rm(y) and rm(d) are added.
code[c(4, 5, 6)]
# }
Run the code above in your browser using DataLab