Merge pull request #8719 from N-thony/fix_partiallylabelledcolumns

Fixed bug in Column Selection > Partially labelled option
IDEMSInternational · Jan 30, 2024 · 2270a49 · 2270a49
2 parents ac3f5a6 + 1d8c872
commit 2270a49
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/instat/static/InstatObject/R/stand_alone_functions.R b/instat/static/InstatObject/R/stand_alone_functions.R
@@ -2556,7 +2556,9 @@ is.containValueLabel <- function(x){
 
 is.containPartialValueLabel <- function(x) {
   if(is.containValueLabel(x)) {
-    return(!all(x[!is.na(x)] %in% attr(x, labels_label)))
+    levelCounts <- table(x)
+    return(!all(x[!is.na(x)] %in% attr(x, labels_label)) &&
+             sum(levelCounts == 0) == 0)
   }
   else{return(FALSE)}
 }