bugfix

cparsania · Oct 10, 2024 · adea9b7 · adea9b7
1 parent ac43c4d
commit adea9b7
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/R/rnaseq_related.R b/R/rnaseq_related.R
@@ -1684,8 +1684,10 @@ enrichMsigDB <- function(gene_list,
                                                 toType="ENTREZID")
 
 
-    msigdb_t2g <- dplyr::bind_rows(msigdb_t2g,tibble::tibble(gs_name = "UN_ANNOTATED",
-                                                             entrez_gene = bg_to_entrez$ENTREZID[bg_to_entrez$ENTREZID %in% msigdb_t2g$entrez_gene] %>% as.numeric()))
+    # msigdb_t2g <- dplyr::bind_rows(msigdb_t2g,tibble::tibble(gs_name = "UN_ANNOTATED",
+    #                                                          entrez_gene = bg_to_entrez$ENTREZID[!bg_to_entrez$ENTREZID %in% msigdb_t2g$entrez_gene] %>% as.numeric()))
+
+    msigdb_t2g <- msigdb_t2g %>% dplyr::filter(entrez_gene %>% dplyr::filter(bg_to_entrez$ENTREZID))
 
 
   }