assert_is_logical(runif(10) > 0.5)
assert_is_a_bool(TRUE)
assert_is_a_bool(NA)
#These examples should fail.
dont_stop(assert_is_logical(1))
dont_stop(assert_is_a_bool(c(TRUE, FALSE)))
dont_stop(assert_is_a_bool(logical()))
Run the code above in your browser using DataLab