Bugfix: cases() now fully heeds option check.xor="ignore".

melff · Jul 2, 2017 · f882396 · f882396
1 parent 86d29cd
commit f882396
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/pkg/R/cases.R b/pkg/R/cases.R
@@ -36,7 +36,7 @@ cases <- function(...,check.xor=c("warn","stop","ignore")){
       else if(any(done>0)) msg("conditions are not mutually exclusive")
     }
     never <- colSums(conditions[!na.cond,,drop=FALSE]) == 0
-    if(any(never)){
+    if(any(never) && check.xor!="ignore"){
       neverlab <- deflabels[never]
       if(length(neverlab)==1)
         warning("condition ",neverlab," is never satisfied")