assert_is_numeric(1:10)
assert_is_a_number(pi)
assert_is_a_number(1L)
assert_is_a_number(NA_real_)
#These examples should fail.
dont_stop(assert_is_numeric(c(TRUE, FALSE)))
dont_stop(assert_is_a_number(1:10))
dont_stop(assert_is_a_number(numeric()))
Run the code above in your browser using DataLab