R/assign_labels.R

Defines functions assign_labels

assign_labels <- function(df, vars, values) {
  stopifnot(requireNamespace("purrr", quietly = TRUE))
  purrr::modify_at(
    df, vars,
    factor, levels = as.integer(values), labels = names(values)
  )
}
strategic-games/sg.data documentation built on June 21, 2020, 8:30 a.m.