inst/tinytest/test_distinct.R

In WinVector/rqdatatable: 'rquery' for 'data.table'

test_distict <- function() {
  d <- data.frame(a = c(1, 1, 1, 2, 2, 2),
                  b = c(1, 2, 1, 2, 1, 2),
                  c = c(1, 1, 1, 2, 2, 2))
  r <- project(d, groupby = c("a", "b", "c"))
  expect_equal(nrow(r), 4)

  invisible(NULL)
}

test_distict()