geonames
package/databaseAn account with geonames is needed for this to work.
http://andybeger.com/2013/08/06/finding-coordinates-for-cities-etc-with-r/
library(geonames) options(geonamesUsername="fosterz") places <- GNsearch(name="prineville reservoir")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.