add `%||%` <- function(a, b) if (!is.null(a)) a else b
function_that_might_return_null() %||% default value