# identify a search point
location <- sf::st_sfc(sf::st_point(c(-84.34, 33.74)), crs = 4326)
# create a search extent from it
search_extent <- sf::st_bbox(sf::st_buffer(location, 10))
# find suggestions from it
suggestions <- suggest_places(
"bellwood",
location,
search_extent = search_extent
)
# get address candidate information
# using the text and the magic key
find_address_candidates(
suggestions$text,
magic_key = suggestions$magic_key
)
Run the code above in your browser using DataLab