correct arg

KellisLab · Dec 10, 2024 · ce1655b · ce1655b
1 parent afc8ad3
commit ce1655b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/deg.R b/R/deg.R
@@ -517,7 +517,7 @@ deg.deseq2 <- function(se,
         cat("From coefficients\n")
         cat("\t", paste0(DESeq2::resultsNames(out), collapse=","), "\n")
         if (any(grepl(make.names(paste0(pathology, case))), DESeq2::resultsNames(out))) {
-            IDX = which(grepl(make.names(paste0(pathology, case))))[1]
+            IDX = grep(make.names(paste0(pathology, case)), DESeq2::resultsNames(out))[1]
         } else {
             IDX = 1
         }