op_grps always returns chararacter vector

tidyverse · May 10, 2017 · cf6e0a6 · cf6e0a6
1 parent 7754a51
commit cf6e0a6
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/tests/testthat/test-lazy-ops.R b/tests/testthat/test-lazy-ops.R
@@ -105,7 +105,7 @@ test_that("summarise drops one grouping level", {
   out2 <- out1 %>% summarise(y = 2)
 
   expect_equal(op_grps(out1), "g1")
-  expect_equal(op_grps(out2), NULL)
+  expect_equal(op_grps(out2), character())
 })
 
 test_that("ungroup drops all groups", {

diff --git a/tests/testthat/test-summarise.r b/tests/testthat/test-summarise.r
@@ -6,5 +6,5 @@ test_that("summarise peels off a single layer of grouping", {
   expect_equal(group_vars(mf2), "x")
 
   mf3 <- mf2 %>% summarise(n = n())
-  expect_null(group_vars(mf3))
+  expect_equal(group_vars(mf3), character())
 })