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
51
52
53
54
55
56
57
58
59
60
|
test_that("skim produces skim_df objects", {
skimmed <- skim(iris)
expect_true(is_skim_df(skimmed))
expect_false(is_skim_list(skimmed))
expect_error(assert_is_skim_df(skimmed), NA)
expect_error(assert_is_skim_list(skimmed))
})
test_that("Partition produces skim_list objects", {
skimmed <- skim(iris)
split <- partition(skimmed)
expect_false(is_skim_df(split))
expect_true(is_skim_list(split))
expect_error(assert_is_skim_df(split), "not a data.frame")
expect_error(assert_is_skim_list(split), NA)
expect_true(is_one_skim_df(split[[1]]))
expect_error(assert_is_one_skim_df(split[[1]]), NA)
})
test_that("Error messages are correct", {
expect_error(assert_is_skim_df(iris), "missing column `skim_type`")
expect_error(assert_is_skim_df(iris), "missing column `skim_variable`")
expect_error(assert_is_skim_df(iris), "missing attributes:")
})
test_that("Bind produces skim_df objects", {
skimmed <- skim(iris)
split <- partition(skimmed)
combined <- bind(split)
expect_true(is_skim_df(combined))
expect_false(is_skim_list(combined))
expect_error(assert_is_skim_df(combined), NA)
expect_error(assert_is_skim_list(combined))
})
test_that("Creating a skim_df requires skim_type and skim_variable columns", {
expect_true(could_be_skim_df(
data.frame(
skim_type = "t",
skim_variable = "v"
)
))
expect_false(could_be_skim_df(
list(
type = "t",
variable = "v"
)
))
expect_false(could_be_skim_df(
data.frame(
variable = "v"
)
))
expect_false(could_be_skim_df(
data.frame(
type = "t"
)
))
})
|
