Skip to content

Instantly share code, notes, and snippets.

@laclefyoshi

laclefyoshi/gist:834832

Created February 19, 2011 04:51
Show Gist options
  • Star 2 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save laclefyoshi/834832 to your computer and use it in GitHub Desktop.
Save laclefyoshi/834832 to your computer and use it in GitHub Desktop.
Download ZIP
R and rjson
Raw
gistfile1.r
library("rjson")
# use rjson
map_data <- fromJSON(paste(readLines("http://maps.google.com/maps/api/elevation/json?path=43.0,141.4|26.2,127.7&samples=500&sensor=false"), collapse=""))
# get a data from Google Elevation API
# convert JSON data into R object using fromJSON()
# toJSON(): convert R object into JSON data
elevation_data <- lapply(map_data$result, function(x){x$elevation})
lng_data <- lapply(map_data$result, function(x){x$location$lng})
plot(lng_data, elevation_data, type="l")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment