fixing interval check in incidence2 objects

Author: thibautjombart

R/project.R

@@ -476,11 +476,10 @@ project.incidence2 <- function(x, R, si, n_sim = 100, n_days = 7,
 
   ## checks specific to incidence2 objects
   dates <- incidence2::get_dates(x)
-  interval <- grates::get_n(dates)
-  if (interval != 1L) {
+  interval <- incidence2::get_interval_duration(x)
+  if (any(interval != 1L)) {
     msg <- sprintf(
-      "daily incidence needed, but interval is %d days",
-      interval
+      "daily incidence needed"
     )
     stop(msg)
   }

tests/testthat/test_project.R

@@ -45,6 +45,9 @@ test_that(
                  fixed = TRUE)
 
 
+    i <- incidence2::incidence(data.frame(t = c(0, 1, 1, 3, 3, 4)), "t", interval = 2)
+    msg <- "daily incidence needed"
+    expect_error(project(i, R = 1), msg)
   }
 )