1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
context("compute_tabulate")
test_that("Zero-row inputs", {
res <- mtcars[0,] %>% compute_tabulate(~factor(cyl))
expect_equal(nrow(res), 0)
expect_true(setequal(names(res), c("count_", "x_")))
# Grouped
res <- mtcars %>% group_by(cyl) %>% dplyr::filter(FALSE) %>% compute_tabulate(~factor(cyl))
expect_equal(nrow(res), 0)
expect_true(setequal(names(res), c("cyl", "count_", "x_")))
})
test_that("weights are added", {
df <- data.frame(x = factor(rep(1:3, each = 3)), y = rep(2, 9))
out <- df %>% compute_tabulate(~x, ~y)
expect_equal(out$count_, c(6, 6, 6))
})
|
