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

## ----setup--------------------------------------------------------------------
library(rict)

## -----------------------------------------------------------------------------
data(wv)
data(wv_plans)

## -----------------------------------------------------------------------------
rict(wv)

## -----------------------------------------------------------------------------
rict(wv_plans, "cd_2020")

## -----------------------------------------------------------------------------
rict_population(map = wv, plan = wv$cd_2020)

## -----------------------------------------------------------------------------
rict_demographics(map = wv, plan = wv$cd_2020)

## -----------------------------------------------------------------------------
rict_demographics(map = wv, plan = wv$cd_2020, normalize = FALSE)

## -----------------------------------------------------------------------------
rict_elections(map = wv, plan = wv$cd_2020)

## -----------------------------------------------------------------------------
rict_compactness(map = wv, plan = wv$cd_2020)

## -----------------------------------------------------------------------------
rict_compactness(
  map = wv, plan = wv$cd_2020,
  measures = list(
    "comp_polsby" = redistmetrics::comp_polsby,
    "comp_lw" = redistmetrics::comp_lw
  )
)

## -----------------------------------------------------------------------------
rict_contiguity(map = wv, plan = wv$cd_2020)

## -----------------------------------------------------------------------------
rict_splits(map = wv, plan = wv$cd_2020, admin = "state")

## -----------------------------------------------------------------------------
rict_component(map = wv, plan = wv$cd_2020, admin = "county")

## -----------------------------------------------------------------------------
rict_elections(map = wv, plan = wv$cd_2020, as_gt = FALSE)

## -----------------------------------------------------------------------------
rict(wv_plans, "cd_2020") |>
  data_color_party(columns = "e_dvs")

## -----------------------------------------------------------------------------
wv_dist <- wv |> dplyr::group_by(cd_2020) |> dplyr::summarize()
gt::gt(wv_dist) |> gt_plot_sf()

## -----------------------------------------------------------------------------
rict(wv_plans, "cd_2020") |>
  gt_plot_compactness(wv, wv$cd_2020)

## -----------------------------------------------------------------------------
tab <- rict(wv)
gt_get_data(tab)