From 70b22258c48254354d1c8aab47cde3549c3b811b Mon Sep 17 00:00:00 2001 From: DavisVaughan Date: Tue, 28 Jun 2022 11:57:08 -0400 Subject: [PATCH] Add test for #6304 --- tests/testthat/test-context.R | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/tests/testthat/test-context.R b/tests/testthat/test-context.R index 7a52f5f58d..f1e54466c6 100644 --- a/tests/testthat/test-context.R +++ b/tests/testthat/test-context.R @@ -13,6 +13,17 @@ test_that("cur_group() works", { }) +test_that("cur_group() works with empty grouped data frame (#6304)", { + df <- tibble(x = integer()) + gdf <- group_by(df, x) + + out <- mutate(df, y = cur_group()) + expect_identical(out$y, tibble()) + + out <- mutate(gdf, y = cur_group()) + expect_identical(out$y, tibble(x = integer())) +}) + test_that("cur_group_idx() gives unique id", { df <- tibble(x = c("b", "a", "b")) gf <- group_by(df, x)