R/setDefault.R

In fdrennan/test: What the Package Does (One Line, Title Case)

Defines functions setDefault

Documented in setDefault

#' setDefault
#' @export setDefault
setDefault <- function(value, default) {
  if (length(value) > 0) {
    return(value)
  }
  ifelse(is.null(value) | !length(nchar(value)), default, value)
}