RS-12299: Fix for merging ValueAttributes with NaNs

Displayr · Nov 23, 2022 · effa556 · effa556
1 parent 2c15815
commit effa556
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/mergedatasetsbycase.R b/R/mergedatasetsbycase.R
@@ -2219,7 +2219,7 @@ mergeValueAndLabelIntoValueAttributes <- function(val, lbl, merged.val.attr,
         if (is.fuzzy.match)
         {
             merged.val <- unname(original.val.attr[which.max(match.percentages)])
-            if (merged.val != val)
+            if (identical(merged.val, val))
             {
                 map <- rbind(map, c(val, merged.val), deparse.level = 0) # use the value in original.val.attr
             }