pass local tests

Author: dajmcdon

R/methods-epi_df.R

@@ -13,7 +13,9 @@ as_tibble.epi_df <- function(x, ...) {
   # grouping and should be called by `NextMethod()` in the current design.
   # See #223 for discussion of alternatives.
   if (attr(x, "no_decay_to_tibble") %||% FALSE) {
-    return(ungroup(x))
+    metadata <- attr(x, "metadata")
+    x <- NextMethod()
+    return(reclass(x, metadata))
   }
   decay_epi_df(NextMethod())
 }

tests/testthat/test-as_tibble-decay.R

@@ -7,7 +7,9 @@ test_that("as_tibble checks an attr to avoid decay to tibble", {
 
 test_that("as_tibble ungroups if needed", {
   edf <- jhu_csse_daily_subset %>% group_by(geo_value)
-  expect_identical(class(as_tibble(edf)), c("tbl_df", "tbl", "data.frame"))
+  # removes the grouped_df class
+  expect_identical(class(as_tibble(edf)), c("tbl_df", "tbl", "data.frame")) 
   attr(edf, "no_decay_to_tibble") <- TRUE
+  # removes grouped_df but not `epi_df`
   expect_identical(class(as_tibble(edf)), c("epi_df", "tbl_df", "tbl", "data.frame"))
 })