Testing fix for integer 64 issue

OHDSI · Mar 20, 2024 · 5327fcf · 5327fcf
1 parent 03c40ab
commit 5327fcf
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/CohortLevelDiagnostics.R b/R/CohortLevelDiagnostics.R
@@ -56,7 +56,9 @@ getCohortCounts <- function(connectionDetails = NULL,
     tidyr::tibble()
 
   if (length(cohortIds) > 0) {
-    cohortIdDf <- tidyr::tibble(cohortId = cohortIds)
+    cohortIdDf <- tidyr::tibble(cohortId = as.numeric(cohortIds))
+    counts$cohortId <- as.numeric(counts$cohortId)
+
     counts <- cohortIdDf %>%
       dplyr::left_join(counts, by = "cohortId") %>%
       tidyr::replace_na(list(cohortEntries = 0, cohortSubjects = 0))