## ----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")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.