fix test for type daily

ropensci · Apr 27, 2019 · 7b649b0 · 7b649b0
1 parent 26b95dd
commit 7b649b0
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/tests/testthat/test-random.R b/tests/testthat/test-random.R
@@ -400,12 +400,11 @@ test_that('n individuals consistent across years', {
     datetime = 'datetime',
     iterations = 20
   )
-
-  uID <- randDaily[, .(nID = .N), by = .(randomID, yr, iteration)]
+  uJul <- randDaily[, .(nDay = uniqueN(jul)), by = .(randomID, yr, iteration)]
 
   expect_equal(
-    uID[, sd(nID), by = .(randomID, yr)]$V1,
-    rep(0, randDaily[, uniqueN(randomID)])
+    uJul[, sd(nDay), by = .(randomID, yr)]$V1,
+    rep(0, nrow(randDaily[, .N, .(randomID, yr)]))
   )
 
 })