R/ma_exists.R

In miceadds: Some Additional Multiple Imputation Functions, Especially for 'mice'

## File Name: ma_exists.R
## File Version: 0.03

ma_exists <- function( x, pos, n_index=1:8)
{
    n_index <- n_index + 1
    is_there <- exists(x, where=pos)
    obj <- NULL
    nn <- 0
    if (is_there){
        obj <- get(x, pos)
    }
    if (! is_there){
        for (nn in n_index){
            pos <- parent.frame(n=nn)
            is_there <- exists(x, where=pos)
            if (is_there){
                obj <- get(x, pos)
                break
            }
        }
    }
    #--- output
    res <- list( is_there=is_there, obj=obj, pos=pos, n=nn)
    return(res)
}