hopefully fixed GEE/GLMM sorting function

jr-leary7 · Apr 6, 2024 · cde9bf4 · cde9bf4
1 parent 4f44e1e
commit cde9bf4
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/sortObservations.R b/R/sortObservations.R
@@ -36,5 +36,8 @@ sortObservations <- function(expr.mat = NULL,
                             PT)
   # sort object by cells
   expr.mat <- expr.mat[, subj_df$Cell]
+  if (!is.unsorted(colnames(expr.mat))) {
+    stop("Sorting has failed.")
+  }
   return(expr.mat)
 }