R/update_sex.R

In INESSSQC/validation: Validation des données

#' update_sex
#'
#' Convertit les éléments possibles de la colonne 'sex' en "f" ou "m".
#'
#' @param x data
#' @param femme Valeurs possibles indiquant une femme.
#' @param homme Valeurs possibles indiquant un homme.
#'
#' @keywords internal
#' @return x avec la colonne 'sex' convertie.
#' @import data.table
#' @export
update_sex <- function(x,
                       femme = c("f", "femme", "fille", "woman", "female"),
                       homme = c("h", "homme", "garcon", "man", "male")){
  # Uniformiser les valeurs de la colonne sex
  x[, sex := tolower(sex)]  # texte en minuscule
  x[, sex := unaccent(sex)]  # supprimer les accents
  # Inscrire "f" pour femme et "m" pour homme selon les possibilités existantes
  x[sex %in% femme, sex := "f"]
  x[sex %in% homme, sex := "m"]
  return(x)
}