/usr/share/doc/r-cran-dplyr/tests/testthat/test-group-indices.R is in r-cran-dplyr 0.7.4-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | context("Group indices")
test_that("group_indices from ungrouped or grouped gives same result", {
res1 <- group_indices(mtcars, cyl, vs, am)
res2 <- mtcars %>% group_by(cyl, vs, am) %>% group_indices()
expect_equal(res1, res2)
})
test_that("group_indices handles the case where no variable is given (#867)", {
res <- group_indices(mtcars)
expect_true(all(res == 1L))
})
test_that("group_indices handles grouped data and no arguments", {
res1 <- mtcars %>% group_by(cyl) %>% group_indices()
res2 <- mtcars %>% group_indices(cyl)
expect_equal(res1, res2)
})
test_that("group_indices can be used in mutate (#2160)", {
res1 <- mtcars %>% mutate(., group_idx = group_indices(., cyl))
res2 <- mtcars %>% mutate(group_idx = as.integer(factor(cyl)))
expect_equal(res1, res2)
})
test_that("group indices are updated correctly for joined grouped data frames (#2330)", {
d1 <- data.frame(x = 1:2, y = 1:2) %>% group_by(x, y)
expect_equal(group_indices(d1), d1$x)
d2 <- expand.grid(x = 1:2, y = 1:2)
res <- inner_join(d1, d2, by = "x")
expect_equal(group_indices(res), res$x)
})
|