colnames fixed when unique GO is enriched

seoanezonjic · Oct 16, 2024 · 25d80d1 · 25d80d1
1 parent 023a9b5
commit 25d80d1
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/functional_analysis_library.R b/R/functional_analysis_library.R
@@ -360,6 +360,8 @@ multi_topGOTest <- function(funsys, genes_list, nodeSize = 5, org_db,
                                  p.value = result,
                                  topNodes = length(result@score), 
                                  format.FUN = function(x, dig, eps){x})
+    colnames(res_table)[6] <- "p.value"
+
     if(clean_parentals)
       res_table <- clean_topGO_parentals(res_table, funsys, p_value_cutoff)
     res_table$fdr <- p.adjust(res_table$p.value, method = "BH", n = length(res_table$p.value))