#' Get macro area by language
#'
#' Takes any vector of languages and returns macro area.
#' @param x character vector of the languages (can be written in lower case)
#' @author George Moroz <agricolamz@gmail.com>
#' @seealso \code{\link{aff.lang}}, \code{\link{country.lang}}, \code{\link{gltc.lang}}, \code{\link{iso.lang}}, \code{\link{lat.lang}}, \code{\link{long.lang}}, \code{\link{subc.lang}}, \code{\link{url.lang}}
#' @examples
#' area.lang('Kabardian')
#' area.lang(c('Kabardian', 'Aduge'))
#' @export
area.lang <- function(x) {
if (typeof(x) == "list") {
x <- unlist(x)
}
glottolog <- lingtypology::glottolog
vapply(x, function(y) {
ifelse(
is.glottolog(y, response = TRUE) == TRUE,
glottolog[tolower(glottolog$language) %in% tolower(y),]$area,
NA_character_
)
}, character(1))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.