# data(input) # Load example input genes
# if (getOption("enrichR.live")) {
# enrichRLive <- TRUE
# dbs <- listEnrichrDbs()
# if(is.null(dbs)) enrichRLive <- FALSE
# dbs <- c("GO_Molecular_Function_2023", "GO_Cellular_Component_2023",
# "GO_Biological_Process_2023")
# enriched <- enrichr(input, dbs)
# print(head(enriched[[1]]))
# # if (enrichRLive) printEnrich(enriched, outFile = "excel")
# }
Run the code above in your browser using DataLab