## Not run:
# # get a list of articles pulled from pubmed:
# abstracts <- fromJSON("Test/plasticity_abstracts.json")
#
# # Extract affiliated addresses from article metadata:
# affil_addresses <- get_article_location_data(abstracts)
#
# # Get coordinates:
# coords <- geocode_addresses(affil_addresses, depth = 4)
#
# # plot coordinates on a map:
#
# map("world", col="#f2f2f2", fill=TRUE, bg="white", lwd=0.05)
# points(coords$long, coords$lat, col = "red", pch = 20)
# ## End(Not run)
Run the code above in your browser using DataLab