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
|
test_that("Summary creates the correct summary object", {
withr::local_options(list(cli.unicode = FALSE))
# Test it creates the correct 4 parts
skim_input <- skim(iris)
summary_input <- summary(skim_input)
expect_named(
summary_input,
c(
"data_name", "counts", "types", "possible_groups",
"dt_key", "data_rows", "data_cols"
)
)
expect_identical(summary_input$data_name, "iris")
expect_identical(summary_input$types, c("factor", "numeric"))
expect_identical(summary_input$data_rows, 150L)
expect_identical(summary_input$data_cols, 5L)
})
test_that("The summary print method prints the correct object", {
skip_if_not(l10n_info()$`UTF-8`)
withr::local_options(list(cli.unicode = FALSE))
skim_summary_input <- summary(skim(iris))
expect_known_output(
skim_summary_input, "summary/summary_iris.txt",
update = FALSE,
print = TRUE
)
})
test_that("The summary print method prints the correct object when piped", {
skip_if_not(l10n_info()$`UTF-8`)
withr::local_options(list(cli.unicode = FALSE))
# Test that the correct lines are output, no name should be output.
summary_input <- iris %>%
skim() %>%
summary()
expect_known_output(summary_input, "summary/summary_iris_piped.txt",
update = FALSE, print = TRUE
)
})
test_that("null object gets expected message", {
input <- NULL
expect_error(summary.skim_df(input), "dataframe is null.")
})
|
