Remove extra ); length -> sum?

pbs-assess · Feb 14, 2024 · d1d8efc · d1d8efc
1 parent 56d9ea8
commit d1d8efc
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/fit.R b/R/fit.R
@@ -709,7 +709,8 @@ 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")
+    assert_that(sum(is.na(as.numeric(data[[time]]))) == 0L,
+      msg = "Specified `time` column can't be coerced to a numeric value")
   }
   if (is.null(time)) {
     time <- "_sdmTMB_time"