1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
context("dapply")
test_that("dapply", {
d = dapply(1:3, function(x) rep(x, 2))
expect_is(d, "data.frame")
expect_equal(dim(d), c(2L, 3L))
expect_equal(colnames(d), c("Var.1", "Var.2", "Var.3"))
d = dapply(1:2, function(x) x, col.names=c("a", "b"))
expect_is(d, "data.frame")
expect_equal(dim(d), c(1L, 2L))
expect_equal(colnames(d), c("a", "b"))
d1 = dapply(iris, computeMode)
d2 = dapply(iris, computeMode, col.names=letters[1:5])
expect_equal(dim(d1), c(1L, 5L))
expect_equal(dim(d2), c(1L, 5L))
expect_equal(names(d1), names(iris))
expect_equal(names(d2), letters[1:5])
})
|
