using as.numeric to avoid integer overflow

OHDSI · Feb 7, 2025 · a83f3eb · a83f3eb
1 parent cd8002e
commit a83f3eb
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/R/summariseInObservation.R b/R/summariseInObservation.R
@@ -235,8 +235,11 @@ countRecords <- function(observationPeriod, cdm, start_date_name, end_date_name,
   }
 
   x <- personDays |>
-    dplyr::mutate(estimate_value = as.integer(.data$estimate_value)) |>
-    rbind(records) |>
+    dplyr::mutate(estimate_value = as.numeric(.data$estimate_value)) |>
+    rbind(
+      records |>
+        dplyr::mutate(estimate_value = as.numeric(.data$estimate_value))
+    ) |>
     omopgenerics::uniteAdditional(additional_column)|>
     dplyr::arrange(dplyr::across(dplyr::any_of("additional_level")))
 
@@ -250,7 +253,7 @@ createSummarisedResultObservationPeriod <- function(result, observationPeriod, n
                                           dplyr::mutate("interval" = .env$original_interval))
   }else{
     result <- result |>
-      dplyr::mutate("estimate_value" = as.character(.data$estimate_value)) |>
+      dplyr::mutate("estimate_value" = sprintf('%.0f', .data$estimate_value)) |>
       omopgenerics::uniteStrata(cols = c("sex", "age_group")) |>
       dplyr::mutate(
         "result_id" = as.integer(1),