inst/run_scripts/annotationHub.R

remotes::install_bioc("AnnotationHub")
library(AnnotationHub)
ah <- AnnotationHub::AnnotationHub()
orgdb <- AnnotationHub::query(ah, c("OrgDb", "maintainer@bioconductor.org"))

specODB <- orgdb[[grep("Homo",orgdb$species)]]
egid <- AnnotationDbi::keys(specODB, "ENTREZID")
select(specODB, egid, c("SYMBOL", "GENENAME", "UNIPROT"), "ENTREZID") %>% dim()
protViz/fgczgseaora documentation built on Dec. 14, 2021, 9:22 p.m.