## get database statistics and search fields
# a list of all valid Entrez databases
databases <- einfo()
databases
# database statistics for protein
protein <- einfo("protein")
protein
# retrieve xml response
p <- content(protein, "xml")
p
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.