diff --git a/R/bio/enrichr_wrapper.R b/R/bio/enrichr_wrapper.R index 1845f71d996871b1dd96b2de272e63854343026d..55586931ed94d11cb9f233334b5dee58ef3f6bdb 100644 --- a/R/bio/enrichr_wrapper.R +++ b/R/bio/enrichr_wrapper.R @@ -23,6 +23,7 @@ enrichr = function(geneSymbols, listName=NULL, ontologies=c("GO_Biological_Proce # quote({ enrReusults = ontologies %>% map_df(function(ontology){ + # ontology = "ENCODE_TF_ChIP" # enrichr-api/query_enrichr_py3.py ${geneList} "wgcna module ${geneList}" ENCODE_Histone_Modifications_2015 ${geneList}.encode_hist_meth_2015.enrresults.txt resultsFile = tempfile(fileext=".txt") diff --git a/R/core_commons.R b/R/core_commons.R index 088ae4d4740e458524acfa52d7f6611ad2189400..2befbc589e59d89277ea1e3842e0b64eb3a34143 100644 --- a/R/core_commons.R +++ b/R/core_commons.R @@ -55,7 +55,7 @@ load_pack <- function(x, warn_conflicts=T){ install_package(x) ## load it using a library function so that load_pack errors if package is still not ins - eval(parse(text=paste("library(", x, ", quietly=T, warn.conflicts=", warn_conflicts, ")", sep=""))) + eval(parse(text=paste("base::library(", x, ", quietly=T, warn.conflicts=", warn_conflicts, ")", sep=""))) }