## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
library(Rglottography)

## ----list-install, eval = interactive()---------------------------------------
# available_datasets <- list_datasets(online = FALSE)

## ----show table, echo=FALSE---------------------------------------------------

if (exists("available_datasets") && nrow(available_datasets) > 0) {
  knitr::kable(head(available_datasets))
}


## ----install-datasets, eval=FALSE---------------------------------------------
# install_datasets(datasets = "asher2007world")

## ----load-datasets, eval=FALSE------------------------------------------------
# collection <- load_datasets(datasets = "installed", level = "all")
# 
# features <- collection$features
# languages <- collection$languages
# families <- collection$families
# sources <- collection$sources

## ----collect-sources, eval=FALSE----------------------------------------------
# sources <- collect_sources(languages)
# writeLines(sources)