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

## ----setup, message=FALSE-----------------------------------------------------
library(trustmebro)

## -----------------------------------------------------------------------------
print(trustmebro::sailor_students)

## -----------------------------------------------------------------------------
purge_string(sailor_students, replacement = "#")

## -----------------------------------------------------------------------------
recode_map <- c(MALE = "M", FEMALE = "F")

## -----------------------------------------------------------------------------
recode_valinvec(purge_string(sailor_students, replacement = "#"), gender, recode_map, gender_recode)