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

## ----workflow-----------------------------------------------------------------
# library(ukbflow)
# 
# df <- extract_pheno(c(31, 54, 20116, 21022))
# df <- decode_values(df)   # 0/1 → "Female"/"Male", etc.
# df <- decode_names(df)    # participant.p31 → sex

## ----decode-values------------------------------------------------------------
# df <- decode_values(df)
# #> ✔ Decoded 3 categorical columns; 2 non-categorical columns unchanged.

## ----fetch-meta---------------------------------------------------------------
# fetch_metadata(dest_dir = "data/metadata")

## ----decode-values-dir--------------------------------------------------------
# df <- decode_values(df, metadata_dir = "data/metadata")

## ----decode-names-------------------------------------------------------------
# df <- decode_names(df)
# #> ✔ Renamed 5 columns.

## ----long-names---------------------------------------------------------------
# df <- decode_names(df, max_nchar = 30)
# #> ! 1 column name longer than 30 characters - consider renaming manually:
# #> • date_of_attending_assessment_centre_i0

## ----rename-------------------------------------------------------------------
# names(df)[names(df) == "date_of_attending_assessment_centre_i0"] <- "date_baseline"