pop_ids = c("307082412", "307075396", "307075338", "307075274")
pop_summ <- entrez_summary(db="popset", id=pop_ids)
sapply(pop_summ, "[[", "Title")
# clinvar example
res <- entrez_search(db = "clinvar", term = "BRCA1")
cv <- entrez_summary(db="clinvar", id=res$ids)
cv[[1]] # get the names of the list for each result
sapply(cv, "[[", "title") # titles
lapply(cv, "[[", "trait_set")[1:2] # trait_set
sapply(cv, "[[", "gene_sort") # gene_sortRun the code above in your browser using DataLab