## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  message = FALSE,
  warning = FALSE
)

## ----setup, include = FALSE---------------------------------------------------
library(edfinr)
library(dplyr)

## ----f33-crosswalk------------------------------------------------------------
list_variables("full") |>
  filter(source == "NCES F-33 Survey", !is.na(f33_item)) |>
  select(name, f33_item, description) |>
  knitr::kable()