23 lines
593 B
R
23 lines
593 B
R
library(dplyr, warn.conflicts = FALSE)
|
|
library(tidygeocoder)
|
|
|
|
# create a dataframe with addresses
|
|
some_addresses <- tibble::tribble(
|
|
~name, ~addr,
|
|
"White House", "1600 Pennsylvania Ave NW, Washington, DC",
|
|
"Transamerica Pyramid", "600 Montgomery St, San Francisco, CA 94111",
|
|
"Willis Tower", "233 S Wacker Dr, Chicago, IL 60606",
|
|
"Rob", "863 Tartan Dr, Venice, FL 34293"
|
|
)
|
|
|
|
# geocode the addresses
|
|
lat_longs <- some_addresses %>%
|
|
geocode(
|
|
addr,
|
|
method = 'google',
|
|
lat = latitude ,
|
|
long = longitude
|
|
)
|
|
#
|
|
#
|