mutate test

mutate-conditional-test

library(dplyr)
library(assertr)

set.seed(13)
df <- data.frame(x = sample(0:1, 10,replace = TRUE),
                 y = sample(0:1, 10, replace = TRUE))

df %>%
  rowwise() %>% 
  mutate(total = sum(x:y)) %>% 
  verify(total == 1)
  
### console output
verification [total == 1] failed! (1 failure)

    verb redux_fn  predicate column index value
1 verify       NA total == 1     NA     6    NA

Error: assertr stopped execution
df