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]) })
Generated by dwww version 1.15 on Fri May 24 06:56:12 CEST 2024.