Merge by case: ensure number is within integer range before convertin…

…g to integer
Displayr · Jul 16, 2021 · ff49b11 · ff49b11
1 parent 85f46e2
commit ff49b11
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/mergedatasetsbycase.R b/R/mergedatasetsbycase.R
@@ -1970,7 +1970,7 @@ combineAsCategoricalVariable <- function(var.list, data.sets,
         }
     }
 
-    if (isIntegerValued(result))
+    if (isIntegerValued(result) && all(abs(result) <= .Machine$integer.max, na.rm = TRUE))
     {
         result <- as.integer(result)
         nms <- names(merged.val.attr)
@@ -2357,7 +2357,7 @@ combineAsNumericVariable <- function(var.list, data.sets, v.types)
             v
     }))
 
-    if (isIntegerValued(result))
+    if (isIntegerValued(result) && all(abs(result) <= .Machine$integer.max, na.rm = TRUE))
         result <- as.integer(result)
 
     return(result)