R/add_total_col.R

In INESSSQC/validation: Validation des données

#' add_total_col
#'
#' 'x' avec les colonnes 'f' et 'm', y ajoute la colonne Total qui est la somme de la ligne.
#'
#' @param x data.
#'
#' @keywords internal
#' @return data avec la colonne 'Total'
#' @import data.table
#' @export
add_total_col <- function(x){

  dt <- as.data.table(x)
  dt[, Total := f + m]
  return(dt)

}