inst/tinytest/test_utils.R

## all_finite

expect_true(rspa:::all_finite(c(1:3)))
expect_false(rspa:::all_finite(c(1,2,NA)))
expect_false(rspa:::all_finite(c(NA,1,2)))
expect_false(rspa:::all_finite(c(NaN,1,2)))
expect_false(rspa:::all_finite(c(Inf,1,2)))
expect_false(rspa:::all_finite(c(-Inf,1,2)))
expect_false(rspa:::all_finite(c(1,2,NA)))
expect_false(rspa:::all_finite(c(1,2,NaN)))
expect_false(rspa:::all_finite(c(1,2,Inf)))
expect_false(rspa:::all_finite(c(1,2,-Inf)))

Try the rspa package in your browser

Any scripts or data that you put into this service are public.

rspa documentation built on June 19, 2019, 5:03 p.m.