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

## -----------------------------------------------------------------------------
wid_decode("sptinc992j")
wid_encode("s", "ptinc", "992", "j")
wid_is_valid(series_type = "s", concept = "ptinc")

## -----------------------------------------------------------------------------
wid_series_types

## -----------------------------------------------------------------------------
wid_search("share", tables = "series_types")

## -----------------------------------------------------------------------------
nrow(wid_concepts)
head(wid_concepts, 10)

## -----------------------------------------------------------------------------
wid_search("wealth")
wid_search("income", tables = "concepts")
wid_search("^ptinc$", tables = "concepts")   # exact match

## -----------------------------------------------------------------------------
wid_search("wealth", type = "s")

## -----------------------------------------------------------------------------
wid_ages

## -----------------------------------------------------------------------------
wid_validate(age = 992)    # validates and zero-pads: "992"
wid_validate(age = "014")

## -----------------------------------------------------------------------------
wid_pop_types

## -----------------------------------------------------------------------------
head(wid_countries, 10)

## -----------------------------------------------------------------------------
wid_search("United States", tables = "countries")
wid_search("^US", tables = "countries")     # US and all sub-regions
wid_search("Europe", tables = "countries")

## -----------------------------------------------------------------------------
wid_validate(areas = c("US", "FR", "US-CA"))    # valid
wid_validate(areas = "lowercase")               # warning

## -----------------------------------------------------------------------------
head(wid_percentiles, 10)

## -----------------------------------------------------------------------------
wid_search("top 1", tables = "percentiles")
wid_search("bottom", tables = "percentiles")

## ----eval=FALSE---------------------------------------------------------------
# wid_validate(perc = "p99p100")    # valid
# wid_validate(perc = "p90p10")     # error: invalid percentile order
# wid_validate(perc = "bad")        # error: invalid format

## -----------------------------------------------------------------------------
wid_search("income", tables = "all")

## -----------------------------------------------------------------------------
# Validate before building
wid_validate(series_type = "s", concept = "ptinc", age = 992, pop = "j")

# Encode
code <- wid_encode("s", "ptinc", "992", "j")
code  # "sptinc992j"

# Round-trip
identical(wid_encode(wid_decode(code)), code)  # TRUE

# Non-throwing check
wid_is_valid(series_type = "Z")   # FALSE
wid_is_valid(series_type = "s")   # TRUE