vignettes/ifelser.R

In dfalbel/ifelser: Piping If Else Statements

## ------------------------------------------------------------------------
library(ifelser)
x <- 1:10
test_if(x > 5) %>% if_true(1) %>% if_false(0)

## ------------------------------------------------------------------------
test_if(x>5) %>% if_true(1) %>% if_false() %>% 
  test_if(x<2) %>% if_true(5) %>% if_false(0)