R/ifelse0.R

In InsightRX/PKPDsim: Tools for Performing Pharmacokinetic-Pharmacodynamic Simulations

#' ifelse function but then based on whether value is NULL or not
#'
#' @param value metadata list object
#' @param alternative alternative value
#' @param allow_null can the alternative be NULL?
#'
#' @export
#' @return `value` if non-NULL; `alternative` otherwise
#' @md
ifelse0 <- function(value = NULL, alternative = NULL, allow_null = FALSE) {
  if(is.null(alternative) && !allow_null) {
    stop("No alternative specified")
  }
  if(!is.null(value)) {
    return(value)
  } else {
    return(alternative)
  }
}