## Not run:
# ## 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")
# }
# ## End(Not run)
Run the code above in your browser using DataLab