Added drop=FALSE when subsetting the coldata

statOmics · May 7, 2024 · 8373e72 · 8373e72
1 parent 3590a80
commit 8373e72
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/msqrob.R b/R/msqrob.R
@@ -279,7 +279,7 @@ msqrobLmer <- function(y,
   }
 
   #Select only the relevant columns
-  data <- data[colnames(data) %in% all.vars(formula)]
+  data <- data[,colnames(data) %in% all.vars(formula), drop = FALSE]
 
   y <- split.data.frame(y, featureGroups)