if_then {attempt}

If this, then that

Description

If this, then that

Usage

if_then(.x, .p = isTRUE, .f)

if_not(.x, .p = isTRUE, .f)

if_else(.x, .p = isTRUE, .f, .else)

Arguments

.x

the object to test. If NULL (the default), only .p is evaluated.

.p

the predicate for testing. Defaut is isTRUE.

.f

a mapper or a function run if .p(.x) is TRUE

.else

a mapper or a function run if .p(.x) is not TRUE

Value

Depending on wether or not .p(.x) is TRUE, .f() or .else() is run.

Note

If you want these function to return a value, you need to wrap these values into a mapper / a function. E.g, to return a vector, you'll need to write if_then(1, is.numeric, ~ "Yay").

Examples

a <- if_then(1, is.numeric, ~ "Yay")
a <- if_not(1, is.character, ~ "Yay")
a <- if_else(.x = TRUE, .f = ~ "Yay", .else = ~ "Nay")