Fix warning [revdep skip]

Displayr · Jul 6, 2022 · 912e01c · 912e01c
1 parent 1ec08b6
commit 912e01c
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/mergedatasetsbycase.R b/R/mergedatasetsbycase.R
@@ -2359,7 +2359,8 @@ combineAsNonCategoricalVariable <- function(var.list, data.sets, v.types)
         else
             return(combineAsTextVariable(var.list, data.sets, v.types))
     }
-    else if (unique.v.types == TEXT.VARIABLE.TYPE)
+    else if (length(unique.v.types) == 1 &&
+             unique.v.types == TEXT.VARIABLE.TYPE)
     {
         return(combineAsTextVariable(var.list, data.sets, v.types))
     }