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

## -----------------------------------------------------------------------------
# df <- wals.feature(c("1a", "20a"))
# head(df)
# map.feature(df$language,
#             features = df$`1a`,
#             latitude = df$latitude,
#             longitude = df$longitude,
#             label = df$language,
#             title = "Consonant Inventories")

## -----------------------------------------------------------------------------
# df <- grambank.feature(c("gb026", "gb042"))
# head(df)
# map.feature(df$grambank.name,
#             features = df$`GB042`,
#             latitude = df$latitude,
#             longitude = df$longitude,
#             label = df$language,
#             title = "Is there productive overt morphological singular marking on nouns?")

## -----------------------------------------------------------------------------
# df <- autotyp.feature(c('Has Gender', 'Has Numeral Classifiers'))
# head(df)
# map.feature(df$language,
#             features = df$HasNumeralClassifiers,
#             label = df$language_for_lingtypology,
#             title = "Presence of Numeral Classifiers")

## -----------------------------------------------------------------------------
# df <- phoible.feature(source = "UPSID")
# head(df)

## -----------------------------------------------------------------------------
# df <- afbo.feature(c("adjectivizer", "adverbializer"))
# head(df)
# map.feature(df$Recipient.name,
#             features = df$adjectivizer,
#             label = df$Recipient.name,
#             title = "Borrowed adjectivizer affixes")

## -----------------------------------------------------------------------------
# df <- sails.feature(features = "ics10")
# head(df)
# map.feature(df$language,
#             features = df$ics10_description,
#             longitude = df$longitude,
#             latitude = df$latitude,
#             label = df$language,
#             title = "Are there numeral classifiers?")

## ----eval = FALSE-------------------------------------------------------------
# df <- abvd.feature(c(292, 7))
# head(df)
# new_df <- df[df$word == "hand",]
# map.feature(new_df$language,
#             features = new_df$item,
#             label = new_df$language)

## -----------------------------------------------------------------------------
# df <- uralex.feature()
# df <- df[df$uralex_mng == "crush",]
# 
# map.feature(df$language,
#             label = df$item,
#             title = "crush")