Add new message about time

See this discussion: #298
pbs-assess · Feb 14, 2024 · 56d9ea8 · 56d9ea8
1 parent 74c0d58
commit 56d9ea8
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/fit.R b/R/fit.R
@@ -709,6 +709,7 @@ sdmTMB <- function(
   if (!is.null(time)) {
     assert_that(time %in% names(data),
       msg = "Specified `time` column is missing from `data`.")
+    assert_that(length(is.na(as.numeric(data[[time]]))) == 0), msg = "Specified `time` column can't be coerced to a numeric value")
   }
   if (is.null(time)) {
     time <- "_sdmTMB_time"