x <- c(0, Inf, -Inf, NA, NaN)
is_finite(x)
is_infinite(x)
is_positive_infinity(x)
is_negative_infinity(x)
assert_all_are_finite(1:10)
assert_any_are_finite(c(1, Inf))
assert_all_are_infinite(c(Inf, -Inf))
dont_stop(assert_all_are_finite(c(0, Inf, -Inf, NA, NaN)))
Run the code above in your browser using DataLab