mapzen_places

library(dplyr)
library(leaflet)
library(rmapzen)

mapzen_api <- readRDS("mapzen_api.rds")

АТБ в радіусі 5 км:

mapzen_result <- rmapzen::mz_search(
  text = "АТБ",
  size = 5000,
  # boundary.country = mz_countries$Ukraine,
  boundary.circle = c(
    lon = 30.629035, 
    lat = 50.447074, 
    radius = 5
  ),
  api_key = mapzen_api
)

mapzen_result %>% 
  as_data_frame() %>% 
  glimpse

## Observations: 13
## Variables: 23
## $ id           <chr> "node:4280747349", "node:4206631441", "node:14627...
## $ gid          <chr> "openstreetmap:venue:node:4280747349", "openstree...
## $ layer        <chr> "venue", "venue", "venue", "venue", "venue", "ven...
## $ source       <chr> "openstreetmap", "openstreetmap", "openstreetmap"...
## $ source_id    <chr> "node:4280747349", "node:4206631441", "node:14627...
## $ name         <chr> "АТБ", "АТБ", "АТБ", "АТБ", "АТБ", "АТБ", "АТБ", ...
## $ confidence   <dbl> 0.729, 0.729, 0.729, 0.729, 0.729, 0.729, 0.729, ...
## $ accuracy     <chr> "point", "point", "point", "point", "point", "poi...
## $ country      <chr> "Ukraine", "Ukraine", "Ukraine", "Ukraine", "Ukra...
## $ country_gid  <chr> "whosonfirst:country:85633805", "whosonfirst:coun...
## $ country_a    <chr> "UKR", "UKR", "UKR", "UKR", "UKR", "UKR", "UKR", ...
## $ region       <chr> "Kyiv City", "Kyiv City", "Kyiv City", "Kyiv City...
## $ region_gid   <chr> "whosonfirst:region:85688801", "whosonfirst:regio...
## $ county       <chr> "Pechers'kyi", "Pechers'kyi", "Pechers'kyi", "Pec...
## $ county_gid   <chr> "whosonfirst:county:1108730705", "whosonfirst:cou...
## $ label        <chr> "АТБ, Ukraine", "АТБ, Kiev, Ukraine", "АТБ, Kiev,...
## $ locality     <chr> NA, "Kiev", "Kiev", "Kiev", "Kiev", "Kiev", "Kiev...
## $ locality_gid <chr> NA, "whosonfirst:locality:101752489", "whosonfirs...
## $ postalcode   <chr> NA, NA, "02002", NA, NA, NA, NA, NA, NA, NA, NA, ...
## $ street       <chr> NA, NA, NA, "Павла Тичини проспект", NA, "Дніпров...
## $ housenumber  <chr> NA, NA, NA, NA, "33", "25а", "7", "22", "15", NA,...
## $ lon          <dbl> 30.60113, 30.63484, 30.59252, 30.60074, 30.65032,...
## $ lat          <dbl> 50.43591, 50.42024, 50.44832, 50.42806, 50.40669,...

mapzen_result %>%
  as_data_frame() %>% 
  leaflet() %>%
  addTiles() %>%
  addCircleMarkers(
    lng = ~lon, lat = ~lat, color = "#4682B4",
    fillOpacity = 0.7, weight = 1
  )