## Fetch a list of all current Entrez database names
einfo()
## Fetch statistics for an Entrez database and parse
## the data into a data.frame
x <- einfo("gene")
if (x$no_errors()) {
content(x, "parsed")
}
## Fetch statistics for an Entrez database in JSON format
## and parse the data into a list
x <- einfo("pubmed", retmode = "json")
if (x$no_errors()) {
content(x, "parsed")
}Run the code above in your browser using DataLab