R/get_optional_argument.R

In PhotoGEA: Photosynthetic Gas Exchange Analysis

get_optional_argument <- function(optional_args, argname, val_if_null) {
    rawval <- optional_args[[argname]]

    if (is.null(rawval)) {
        val_if_null
    } else {
        rawval
    }
}