/usr/share/doc/r-cran-dplyr/tests/testthat/helper-groups.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 | expect_groups <- function(df, groups, info = NULL) {
if (length(groups) == 0L) {
expect_null(groups(df), info = info)
expect_identical(group_vars(df), character(), info = info)
} else {
expect_identical(groups(df), lapply(enc2native(groups), as.name), info = info)
expect_identical(group_vars(df), groups, info = info)
}
}
expect_no_groups <- function(df) {
expect_groups(df, NULL)
}
|