sckott/google_maps_with_rvest

## google_maps_with_rvest
library(dplyr); library(httr); library(rvest)
addr <- "Big Ben"
GET("http://maps.google.com/maps/api/geocode/xml",
    query = list(address = addr)) %>%
    content() %>%
    html_nodes(xpath = "//location//lat | //location//lng") %>%
    html_text() %>%
    setNames(c("lng", "lat"))

## things.R
head(mtcars)
	library(dplyr); library(httr); library(rvest)
	addr <- "Big Ben"
	GET("http://maps.google.com/maps/api/geocode/xml",
	query = list(address = addr)) %>%
	content() %>%
	html_nodes(xpath = "//location//lat \| //location//lng") %>%
	html_text() %>%
	setNames(c("lng", "lat"))