Merge pull request #189 from bigomics/fix-1276-opg

Fix #1276: Sample information multiple errors
bigomics · Nov 25, 2024 · c85269d · c85269d
2 parents 13c06e8 + 48c5483
commit c85269d
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/pgx-pheno.R b/R/pgx-pheno.R
@@ -395,6 +395,9 @@ expandPhenoMatrix <- function(M, drop.ref = TRUE, keep.numeric = FALSE, check =
   ## select allowed columns: numeric or with "sensible" levels
   y.isnum <- (y.class %in% c("numeric", "integer"))
   kk <- which(y.isnum | (!y.isnum & nlevel > 1 & nratio < 0.66))
+  if (length(kk) == 0) {
+    kk <- which(y.isnum | (!y.isnum & nlevel > 1 ))
+  }
   if (length(kk) == 0) {
     return(NULL)
   }