inst/tinytest/test_distinct.R

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

Try the rqdatatable package in your browser

Any scripts or data that you put into this service are public.

rqdatatable documentation built on Aug. 21, 2023, 9:10 a.m.