R/add_total_row.R

In INESSSQC/validation: Validation des données

#' add_total_row
#'
#' data avec les colonnes c(\code{col}, "f", "m", "Total"), ajoute une dernière ligne indiquant le total de chaque colonne.
#'
#' @param x data
#' @param col Nom de la colonne n'étant pas "f", "m" ou "Total".
#'
#' @keywords internal
#' @return data + nouvelle ligne indiquant le total de chaque colonne.
#' @import data.table
#' @export
add_total_row <- function(x, col){
  
  toadd <- data.table(null = NA)  # création tableau à ajouter
  set(toadd, 1L, col, "Total")  # ajout colonne paramétrable
  toadd[, `:=` (f = sum(x$f),  # ajout des autres colonnes
                m = sum(x$m),
                Total = sum(x$Total),
                null = NULL)]  # supprimer colonne superflue
  x <- rbind(x, toadd)  # ajout de toadd au tableau de départ x
  return(x)

}