/usr/share/doc/r-cran-dplyr/tests/testthat/test-tbl.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 | context("tbl")
test_that("tbl_nongroup_vars() excludes group variables", {
cube <- group_by(nasa, month)
expect_identical(tbl_nongroup_vars(cube), setdiff(tbl_vars(cube), "month"))
gdf <- group_by(mtcars, cyl)
expect_identical(tbl_nongroup_vars(gdf), setdiff(tbl_vars(gdf), "cyl"))
})
|