Fix bug in find_missing_time()

pbs-assess · May 9, 2023 · 889e485 · 889e485
1 parent 1adaccc
commit 889e485
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/fit.R b/R/fit.R
@@ -1609,7 +1609,8 @@ check_irregalar_time <- function(data, time, spatiotemporal, time_varying) {
 find_missing_time <- function(x) {
   if (!is.factor(x)) {
     ti <- sort(unique(x))
-    mindiff <- min(diff(ti))
+    # mindiff <- min(diff(ti))
+    mindiff <- 1L
     allx <- seq(min(ti), max(ti), by = mindiff)
     setdiff(allx, ti)
   }