1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
context("checkAtomicVector")
test_that("checkAtomicVector", {
myobj = 1:2
expect_succ_all(AtomicVector, myobj)
myobj = NULL
expect_fail_all(AtomicVector, myobj)
expect_true(testAtomicVector(integer(0)))
expect_false(testAtomicVector(NULL))
expect_true(testAtomicVector(1))
expect_true(testAtomicVector(integer(0)))
expect_true(testAtomicVector(factor(1)))
expect_true(testAtomicVector(NA, any.missing = TRUE))
expect_false(testAtomicVector(NA, any.missing = FALSE))
expect_false(testAtomicVector(NA, all.missing = FALSE))
expect_true(testAtomicVector(1, len=1))
expect_false(testAtomicVector(1, len=0))
expect_true(testAtomicVector(1, min.len=0))
expect_false(testAtomicVector(1, min.len=2))
expect_true(testAtomicVector(1, max.len=1))
expect_false(testAtomicVector(1, max.len=0))
expect_true(testAtomicVector(1, unique=TRUE))
expect_false(testAtomicVector(1, min.len=2))
expect_true(testAtomicVector(1, max.len=1))
expect_false(testAtomicVector(1, max.len=0))
expect_true(testAtomicVector(1, unique=TRUE))
expect_true(testAtomicVector(c(1,1), unique=FALSE))
expect_false(testAtomicVector(c(1,1), unique=TRUE))
expect_true(testAtomicVector(1, names="unnamed"))
expect_true(testAtomicVector(setNames(1, "x"), names="named"))
expect_false(testAtomicVector(1, names="unique"))
expect_error(assertAtomicVector(iris), "atomic")
li = list(list = list(1, 2), factor = factor("a"), integer = 1:2, NULL = NULL, data.frame = iris, matrix = matrix(1:9))
expected = setNames(c(FALSE, TRUE, TRUE, FALSE, FALSE, FALSE), names(li))
expect_equal(expected, vlapply(li, testAtomicVector))
})
test_that("type guessing works (#48)", {
x = structure(list(1:4, letters[1:3]), dim = c(2, 1))
expect_match(checkAtomic(x), "list")
})
|
