degaray
degaray
/ find_unbound.r
Last active
September 4, 2015 02:04
Obtain all the undefined variables in an expression
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| find_unbound <- function(lang) { | |
| stopifnot(is.language(lang), !is.expression(lang)) | |
| bound <- character() | |
| unbound <- character() | |
| rec_fun <- function(lang) { | |
| if(is.call(lang)) { | |
| # These are assignment calls; if any symbols are assigned and have | |
| # not already been found in a leaf, they are defined as bound |