rgbif (version 0.9.9)

elevation: Get elevation for lat/long points from a data.frame or list of points.

Description

Get elevation for lat/long points from a data.frame or list of points.

Usage

elevation(input = NULL, latitude = NULL, longitude = NULL,
  latlong = NULL, key, curlopts = list())

Arguments

input

A data.frame of lat/long data. There must be columns decimalLatitude and decimalLongitude.

latitude

A vector of latitude's. Must be the same length as the longitude vector.

longitude

A vector of longitude's. Must be the same length as the latitude vector.

latlong

A vector of lat/long pairs. See examples.

key

(character) Required. An API key. See Details.

curlopts

list of named curl options passed on to HttpClient. see curl_options for curl options

Value

A new column named elevation in the supplied data.frame or a vector with elevation of each location in meters.

Details

To get an API key, see instructions at https://developers.google.com/maps/documentation/elevation/#api_key - It should be an easy process. Once you have the key pass it in to the key parameter. You can store the key in your .Rprofile file and read it in via getOption as in the examples below.

References

Uses the Google Elevation API at the following link https://developers.google.com/maps/documentation/elevation/start

Examples

# NOT RUN {
apikey <- getOption("g_elevation_api")
key <- name_suggest('Puma concolor')$key[1]
dat <- occ_search(taxonKey=key, return='data', limit=300,
  hasCoordinate=TRUE)
head( elevation(dat, key = apikey) )

# Pass in a vector of lat's and a vector of long's
elevation(latitude=dat$decimalLatitude, longitude=dat$decimalLongitude,
  key = apikey)

# Pass in lat/long pairs in a single vector
pairs <- list(c(31.8496,-110.576060), c(29.15503,-103.59828))
elevation(latlong=pairs, key = apikey)

# Pass on curl options
pairs <- list(c(31.8496,-110.576060), c(29.15503,-103.59828))
elevation(latlong=pairs, curlopts = list(verbose=TRUE), key = apikey)
# }

Run the code above in your browser using DataCamp Workspace