sckott · August 29, 2015 14:21
diff --git a/google_maps_with_rvest b/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"))
diff --git a/things.R b/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"))