R/tam_args_CALL_search.R

In alexanderrobitzsch/TAM: Test Analysis Modules

## File Name: tam_args_CALL_search.R
## File Version: 0.07

tam_args_CALL_search <- function(args_CALL, variable, default_value)
{
    res <- default_value
    if ( variable %in% names(args_CALL) ){
        res <- args_CALL[[ variable ]]
    }
    return(res)
}