mapdist: Compute map distances using Google

Description Usage Arguments Details Value Author(s) See Also Examples

Description

Compute map distances using Google Maps. Note that in most cases by using this function you are agreeing to the Google Maps API Terms of Service at https://developers.google.com/maps/terms.

Usage

1
2
3
mapdist(from, to, mode = c("driving", "walking", "bicycling"),
  output = c("simple", "all"), messaging = FALSE, sensor = FALSE,
  language = "en-EN", override_limit = FALSE)

Arguments

from

name of origin addresses in a data frame (vector accepted)

to

name of destination addresses in a data frame (vector accepted)

mode

driving, bicycling, or walking

output

amount of output

messaging

turn messaging on/off

sensor

whether or not the geocoding request comes from a device with a location sensor

language

language

override_limit

override the current query count (.GoogleDistQueryCount)

Details

if parameters from and to are specified as geographic coordinates, they are reverse geocoded with revgeocode. note that the google maps api limits to 2500 element queries a day.

Value

a data frame (output="simple") or all of the geocoded information (output="all")

Author(s)

David Kahle david.kahle@gmail.com

See Also

http://code.google.com/apis/maps/documentation/distancematrix/

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
## Not run:  online queries draw R CMD check times

mapdist("waco, texas", "houston, texas")

from <- c("houston, texas", "dallas")
to <- "waco, texas"
mapdist(from, to)
mapdist(from, to, mode = "bicycling")
mapdist(from, to, mode = "walking")

from <- c("houston", "houston", "dallas")
to <- c("waco, texas", "san antonio", "houston")
mapdist(from, to)


# geographic coordinates are accepted as well
(wh <- as.numeric(geocode("the white house, dc")))
(lm <- as.numeric(geocode("lincoln memorial washington dc")))
mapdist(wh, lm, mode = "walking")
distQueryCheck()


## End(Not run)

KimByoungmo/modefiedggmap documentation built on May 8, 2019, 4:49 p.m.