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
|
test_that("Only string scalars for types", {
expect_error(sfl(mad, skim_type = c("1", "2")))
})
test_that("Zero-length sfl's supported", {
input <- sfl(skim_type = "numeric")
expect_length(input$funs, 0)
})
test_that("The interface for sfl's separates keep and drop functions", {
input <- sfl(mad = mad, hist = NULL, skim_type = "test")
expect_s3_class(input, "skimr_function_list")
expect_length(input, 2)
expect_named(input, c("funs", "skim_type"))
expect_identical(input$skim_type, "test")
funs <- input$funs
expect_type(funs, "list")
expect_named(funs, c("mad", "hist"))
})
test_that("sfl's support dummy names", {
input <- sfl(mean = ~ mean(., na.rm = TRUE), skim_type = "test")
funs <- input$funs
expect_equal(funs$mean, rlang::quo(mean(., na.rm = TRUE)))
})
test_that("sfl's automatically generate function names", {
input <- sfl(mad, hist = NULL, ~ length(.)^2, "var")
expect_named(input$funs, c("mad", "hist", "~length(.)^2", '"var"'))
})
|
