(v1.4.0.9025) is_new_episode()

tests/testthat/test-first_isolate.R

@@ -204,11 +204,5 @@ test_that("first isolates work", {
   expect_true(all(example_isolates %pm>%
                     pm_distinct(mo, .keep_all = TRUE) %pm>%
                     first_isolate() == TRUE))
-  
-  library(dplyr)
-  # is_new_episode
-  old <- example_isolates %>% mutate(out = first_isolate(., include_unknown = TRUE))
-  new <- example_isolates %>% group_by(mo) %>% mutate(out = is_new_episode())
-  expect_identical(which(old$out), which(new$out))
 
 })