R/format_dist_age_sex.R

In INESSSQC/validation: Validation des données

#' format_dist_age_sex
#' 
#' Ajout des totaux et des pourcentages. Format le tableau créé par dist_age_sex() pour le présenter en LaTeX. Voir \code{dist_age_sex()}.
#'
#' @param x,age,sex,breaks,max,right Voir \code{dist_age_sex()}.
#'
#' @return Tableau à insérer dans kable().
#' @import data.table
#' @export
format_dist_age_sex <- function(x, age, sex, breaks, max = TRUE, right = FALSE){
  
  ### Verification
  # Tous les arguments sont vérifiés dans la fonction dist_age_sex()

  ### Code
  dt <- dist_age_sex(x, age, sex, breaks, max, right)  # tableau résultat
  # Ajouter les totaux
  dt <- add_total_col(dt)  # totaux par ligne
  dt <- add_total_row(dt, "age")  # totaux par colonne
  dt <- add_pourcent(dt)  # ajouter les pourcentages
  dt[, age := gsub(")", "[", age)]  # modifier signe borne supérieure exclue
  setnames(dt, names(dt), c("Groupe", "Femme", "Homme", "Total"))  # modifier le nom des colonnes
  dt <- as.data.frame(dt)
  return(dt)

}