# Custom failure messages for assertions.

### Description

Custom failure messages for assertions.

### Usage

1 2 3 | ```
on_failure(x)
on_failure(x) <- value
``` |

### Arguments

`x` |
a assertion function that returns |

`value` |
a function with parameters |

### Examples

1 2 3 4 5 6 7 8 9 10 | ```
is_odd <- function(x) {
assert_that(is.numeric(x), length(x) == 1)
x %% 2 == 1
}
see_if(is_odd(2))
on_failure(is_odd) <- function(call, env) {
paste0(deparse(call$x), " is even")
}
see_if(is_odd(2))
``` |