1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
context("Utilities")
test_that("finite.cases.data.frame", {
# All finite --------------------------------------------------------------
expect_identical(finite.cases(data.frame(x=4)), TRUE) # 1x1
expect_identical(finite.cases(data.frame(x=4, y=11)), TRUE) # 1x2
expect_identical(finite.cases(data.frame(x=4:5)), c(TRUE, TRUE)) # 2x1
expect_identical(finite.cases(data.frame(x=4:5, y=11:12)), c(TRUE, TRUE)) # 2x2
# Has one NA --------------------------------------------------------------
expect_identical(finite.cases(data.frame(x=NA)), FALSE) # 1x1
expect_identical(finite.cases(data.frame(x=4, y=NA)), FALSE) # 1x2
expect_identical(finite.cases(data.frame(x=c(4,NA))), c(TRUE, FALSE)) # 2x1
expect_identical(finite.cases(data.frame(x=c(4,NA), y=c(11,NA))), c(TRUE, FALSE)) # 2x2
expect_identical(finite.cases(data.frame(x=c(4,NA), y=c(NA,12))), c(FALSE, FALSE)) # 2x2
expect_identical(finite.cases(data.frame(x=c(4,5), y=c(NA,12))), c(FALSE, TRUE)) # 2x2
# Testing NaN and Inf, using miscellaneous data shapes --------------------
expect_identical(finite.cases(data.frame(x=c(4,NaN))), c(TRUE, FALSE))
expect_identical(finite.cases(data.frame(x=Inf)), FALSE)
expect_identical(finite.cases(data.frame(x=c(4,5), y=c(-Inf,12))), c(FALSE, TRUE))
})
|
