get_tibble_gene_summaries.R

get_summary <- function(geneids){
  summary_list <- entrez_summary("gene", id = geneids, ) %>% 
    extract_from_esummary(elements = c("uid", "summary"), simplify = TRUE) %>% 
    as_tibble() %>% 
    unnest()
  
  gene_names <- summary_list %>% 
    slice(1) %>% 
    as.character()
  
  gene_summaries <- summary_list %>% 
    slice(2) %>% 
    as.character()
  
  tibble(entrezgene_id = gene_names, summary = gene_summaries)
}