## ----include=FALSE------------------------------------------------------------
library(lingtypology)
knitr::opts_chunk$set(message= FALSE, eval=FALSE)

## -----------------------------------------------------------------------------
# new_data <- read.csv("https://goo.gl/GgscBE")
# tail(new_data)

## ----message= FALSE-----------------------------------------------------------
# library(dplyr)
# new_data |>
#   mutate(Language.name = gsub(pattern = " ", replacement = "", Language.name)) |>
#   filter(is.glottolog(Language.name) == TRUE) |>
#   filter(area.lang(Language.name) == "Africa") |>
#   select(Language.name) |>
#   map.feature()

## ----message= FALSE-----------------------------------------------------------
# new_data |>
#   mutate(Language.name = gsub(pattern = " ", replacement = "", Language.name)) |>
#   filter(is.glottolog(Language.name) == TRUE) |>
#   filter(area.lang(Language.name) == "Africa") |>
#   select(Language.name) |>
#   map.feature(languages = _, minimap = TRUE)

## -----------------------------------------------------------------------------
# library(leaflet)
# map.feature(c("French", "Occitan")) |>
#   fitBounds(0, 40, 10, 50) |>
#   addPopups(2, 48, "Great day!")

## -----------------------------------------------------------------------------
# leaflet() %>%
#   fitBounds(0, 40, 10, 50) |>
#   addPopups(2, 48, "Great day!") |>
#   map.feature(c("French", "Occitan"), pipe.data = _)

## -----------------------------------------------------------------------------
# m <- leaflet() |>
#   fitBounds(0, 40, 10, 50) |>
#   addPopups(2, 48, "Great day!")
# 
# map.feature(c("French", "Occitan"), pipe.data = m)

## -----------------------------------------------------------------------------
# leaflet()  |>
#   addProviderTiles("Stamen.TonerLite") |>
#   fitBounds(0, 40, 10, 50) |>
#   addPopups(2, 48, "Great day!") |>
#   map.feature(c("French", "Occitan"), pipe.data = _, tile = "none")

## -----------------------------------------------------------------------------
# map.feature(c("French", "Occitan")) |>
#   leaflet.extras::addDrawToolbar()  |>
#   leaflet.extras::addStyleEditor()
# map.feature(c("French", "Occitan")) |>
#   leaflet.extras::addFullscreenControl()

## ----eval = FALSE-------------------------------------------------------------
# map.feature(c("West Circassian", "Russian")) |>
#   mapedit::editMap() ->
#   my_polygone
# 
# map.feature(c("West Circassian", "Russian")) |>
#   leaflet::addPolygons(data = my_polygone$finished)

## -----------------------------------------------------------------------------
# faceted <- map.feature(circassian$language,
#                        latitude = circassian$latitude,
#                        longitude = circassian$longitude,
#                        features = circassian$dialect,
#                        facet = circassian$language)
# library(leafsync)
# sync(faceted, no.initial.sync = FALSE)

## ----eval=FALSE---------------------------------------------------------------
# m1 <- map.feature(lang.aff("Tsezic"), label = lang.aff("Tsezic"))
# m2 <- map.feature(lang.aff("Avar-Andi"), label = lang.aff("Avar-Andi"))
# sync(m1, m2)

## ----eval=FALSE---------------------------------------------------------------
# library(overpass)

## ----eval=FALSE---------------------------------------------------------------
# settlements <- 'area[name~"Дагестан|Ингушетия|Чечня"];
# (node["place"~"city|village|town|hamlet"](area););
# out;'

## ----eval=FALSE---------------------------------------------------------------
# query_result <- overpass_query(settlements)
# settlement_data <- as.data.frame(query_result[, c("id", "lon", "lat", "name")])

## ----eval=FALSE---------------------------------------------------------------
# settlement_data <- settlement_data[complete.cases(settlement_data),]

## ----eval=FALSE---------------------------------------------------------------
# map.feature(language = "fake",
#             latitude = settlement_data$lat,
#             longitude = settlement_data$lon,
#             label = settlement_data$name)

## -----------------------------------------------------------------------------
# df <- wals.feature(c("1a", "20a"))

## -----------------------------------------------------------------------------
# atlas.database(languages = df$language,
#                features = df[,c(4:5)],
#                latitude = df$latitude,
#                longitude = df$longitude,
#                atlas.name = "Some WALS features",
#                author = "Author Name")

## -----------------------------------------------------------------------------
# list.files("./atlas_Some_WALS_features/")

## ----eval=FALSE---------------------------------------------------------------
# rmarkdown::render_site("./atlas_Some_WALS_features/")

## ----include=FALSE------------------------------------------------------------
# unlink("./atlas_Some_WALS_features/", recursive = TRUE)

## ----eval= FALSE--------------------------------------------------------------
# sp::coordinates(circassian) <- ~longitude+latitude
# sp::proj4string(circassian) <- sp::CRS("+proj=longlat +datum=WGS84")
# rgdal::writeOGR(circassian["village"],
#                 "circassian.kml",
#                 layer="village",
#                 driver="KML")