tests/testthat/test-mapply.r

In plyr: Tools for Splitting, Applying and Combining Data

context("Mapply")

test_that("Lack of names is preserved", {
  list <- mlply(cbind(1:5, 1:5), list)
  expect_that(names(list[[1]]), equals(NULL))

  vector <- mlply(cbind(1:5, 1:5), c)
  expect_that(names(vector[[1]]), equals(NULL))
})

test_that("No expansion creates single output dimension", {
  a <- maply(cbind(1:20, 1:20), "+", .expand = FALSE)
  expect_that(a, is_equivalent_to(1:20 * 2))

  d <- mdply(cbind(1:20, 1:20), "+", .expand = FALSE)
  expect_that(d$X1, equals(1:20))
  expect_that(d$V1, equals(1:20 * 2))
})

test_that("Expand = TRUE creates multiple output dimensions", {
  a <- maply(cbind(1:20, 1:20), "+", .expand = TRUE)
  expect_that(dim(a), equals(c(20, 20)))
  expect_that(diag(a), is_equivalent_to(1:20 * 2))

  d <- mdply(cbind(1:20, 1:20), "+", .expand = TRUE)
  expect_that(d$X1, equals(1:20))
  expect_that(d$X2, equals(1:20))
  expect_that(d$V1, equals(1:20 * 2))
})