Default if Missing

Infix function will replace missing values with another value.

x %||% y

Arguments

x

input

y

replacement value for length(0) or NULL

Value

replacement value if x is NULL

Examples

## replace a NULL value with a replacement value
x <- NULL
x %||% "replacementValue"
#> [1] "replacementValue"
print(x)
#> NULL

## replace a NULL value within a function with a replacement value
testFunction <- function(x=NULL, y = "bar"){
 x <-x %||% "foo"
print(c(x, y))
}
testFunction()
#> [1] "foo" "bar"

## replace x if length of x is 0
x <- list()
replacementValue <- "replacement"
output <- x %||% replacementValue
print(output)
#> [1] "replacement"