tests/testthat/test-compute-tabulate.r

In ggvis: Interactive Grammar of Graphics

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))
})