Fix test

OHDSI · Aug 29, 2024 · b9ff728 · b9ff728
1 parent 2f5ccc1
commit b9ff728
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/testthat/test-CohortConstructionAndStats.R b/tests/testthat/test-CohortConstructionAndStats.R
@@ -502,7 +502,7 @@ test_that("Insert cohort stats with INT64 for cohort_definition_id", {
   # Obtain a list of cohorts to test
   cohortsWithStats <- getCohortsForTest(cohorts, generateStats = TRUE)
 
-  cohortsWithStats$cohortId <- cohortsWithStats$cohortId + .Machine$integer.max
+  cohortsWithStats$cohortId <- cohortsWithStats$cohortId + as.numeric(.Machine$integer.max)
 
   # Insert the inclusion rule names
   cohortInclusionRules <- insertInclusionRuleNames(