Akmazad

uniprot_to_GeneSymbol <- function(uniprotList){
  require(org.Hs.eg.db)
  
  if(length(uniprotList) == 0)
    stop("Uniprot ID list is empty")
  
  geneSymbols <- mapIds(keys = uniprotList, keytype  = "UNIPROT",
                        column  = "SYMBOL",
                        multiVals = "first",
                        x = org.Hs.eg.db) %>% unname()

Akmazad

extractAlibrary_from_enrichr <- 
    function(library_title = "KEGG_2021_Human"){
        require(speedr)
        require(qdapTools)
        require(dplyr)
        

        # generate url for a given library title
        url = paste0("https://maayanlab.cloud/Enrichr/geneSetLibrary?mode=text&libraryName=",
                     library_title)