Put in more changes.

Author: kenmawer

tests/testthat/test-epix_slide.R

@@ -1,20 +1,17 @@
 library(dplyr)
-library(rlang)
 
 test_that("epix_slide only works on an epi_archive",{
   expect_error(epix_slide(data.frame(x=1)))
 })
 
 test_that("epix_slide works as intended",{
-  x <- tibble::tribble(~version, ~time_value,
-                       5, c(1:2,4),
-                       6, c(1:2,4:5),
-                       7, 2:6) %>%
-    tidyr::unnest(time_value)
+  x <- tibble::tribble(~version, ~time_value, ~binary,
+                       5,       c(1:2,4),     2^(1:3),
+                       6,       c(1:2,4:5),   2^(4:7),
+                       7,       2:6,          2^(8:12)) %>%
+    tidyr::unnest(c(time_value,binary))
 
-  xx <- bind_cols(geo_value = rep("x",12),
-                  arrange(x,time_value,version),
-                  binary = 2^(1:12)) %>%
+  xx <- bind_cols(geo_value = rep("x",12), x) %>%
     as_epi_archive()
 
   xx1 <- epix_slide(x = xx,
@@ -24,10 +21,11 @@ test_that("epix_slide works as intended",{
                     new_col_name = "sum_binary")
 
   xx2 <- tibble(geo_value = rep("x",2),
+                # 7 should also be there below; this is a bug on issue #153
                 time_value = c(5,6),
-                sum_binary = c(2^7,
-                               2^10+2^8)) %>%
-    as_epi_df(as_of = 1)
+                sum_binary = c(2^3,
+                               2^7+2^6)) %>%
+    as_epi_df(as_of = 1) # Also a bug (issue #213)
 
   expect_identical(xx1,xx2) # *