Commit 9e67a753 authored by Holger Brandl's avatar Holger Brandl

added padj cutoff parameter to enrichr()

parent a0fbd037
......@@ -4,7 +4,7 @@
enrichr = function(geneSymbols, listName, ontologies=c("GO_Biological_Process_2015", "ENCODE_TF_ChIP", "ENCODE_Histone_Modifications_2015"), suppress_logs=T, keep_genes=F){
enrichr = function(geneSymbols, listName, ontologies=c("GO_Biological_Process_2015", "ENCODE_TF_ChIP", "ENCODE_Histone_Modifications_2015"), suppress_logs=T, keep_genes=F, padj_cutoff=0.05){
if(system("which query_enrichr_py3.py", ignore.stdout=T) == 1){
stop("query_enrichr_py3 is not in PATH")
}
......@@ -37,7 +37,7 @@ enrichr = function(geneSymbols, listName, ontologies=c("GO_Biological_Process_20
if(!keep_genes) enrReusults %<>% dplyr::select(-genes)
enrReusults
enrReusults %>% filter(adj_p_value<padj_cutoff)
}
#enrichr_cached = function(...){ quote(enrichr(...)) %>% cache_it() }
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment