Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
library(overpass)
library(sf)

settlements <- 'area[name~"Адыгея|Кабардино-Балкария|Карачаево-Черкесия|Ставропольский край|Краснодарский край"];
(node["place"~"city|village|town|hamlet|isolated_dwelling"](area););
out;'

query_result <- overpass_query(settlements)

settlement_data <- st_as_sf(query_result)

names(settlement_data)

map.feature(languages = circassian$language,
            features = circassian$dialect,
            label = circassian$village,
            latitude = circassian$latitude,
            longitude = circassian$longitude) %>%
        addCircleMarkers(data = settlement_data,
                         radius = 3, fillOpacity = 1, stroke = 0, color = "black", popup = ~name) %>% setView(44, 43.5, zoom = 8)

@agricolamz

This comment has been minimized.

Copy link

@agricolamz agricolamz commented Mar 10, 2018

I'd propose to add to libraries at the top: lingtypology and leaflet

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment