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

## ----setup--------------------------------------------------------------------
library(pxmake)

x <- px(population_gl)

## -----------------------------------------------------------------------------
px_language(x) # Main language
px_languages(x) # All languages

## -----------------------------------------------------------------------------
x1 <- px_language(x, "kl")

## -----------------------------------------------------------------------------
x2 <- px_languages(x1, c("da", "kl"))

## -----------------------------------------------------------------------------
x3 <- px_contact(x2, "Johan Ejstrud")

## -----------------------------------------------------------------------------
x4 <- px_contact(x3, dplyr::tribble(
  ~language, ~value,
  "kl", "Lars Pedersen",
  "da", "Johan Ejstrud"
))