R/calcul_mnt_tot_am.R

In jomuller/vvs: Analyse des fichiers VisualValoSej

calcul_mnt_tot_am <- function(x) {

  if (x$valo %in% c(3, 4)) {
    col_pour_somme <- c("mnt_mon", "mnt_dmi", "mnt_ghs_am", "mnt_exinf_am", "mnt_ghs50_am", "mnt_ghsmin_am", "mnt_exh_am", "mnt_supphd_am", "mnt_suppent1_am", "mnt_suppent2_am", "mnt_suppent3_am", "mnt_dip_am", "mnt_9610_am", "mnt_9619_am", "mnt_9620_am", "mnt_9621_am", "mnt_9622_am", "mnt_9623_am", "mnt_9625_am", "mnt_9631_am", "mnt_9632_am", "mnt_9633_am", "mnt_9615_am", "mnt_rap_am", "mnt_ant_am", "mnt_rea_am", "mnt_rep_am", "mnt_si_am", "mnt_sc_am", "mnt_nn1_am", "mnt_nn2_am", "mnt_nn3_am", "mnt_caisson_am")
  } else {
    col_pour_somme <- c("mnt_mon", "mnt_dmi", "mnt_ghs_am", "mnt_exinf_am", "mnt_ghs50_am", "mnt_ghsmin_am", "mnt_exh_am", "mnt_supphd_am", "mnt_suppent1_am", "mnt_suppent2_am", "mnt_suppent3_am", "mnt_dip_am", "mnt_po1_am", "mnt_po2_am", "mnt_po3_am", "mnt_po4_am", "mnt_po5_am", "mnt_po6_am", "mnt_po7_am", "mnt_po8_am", "mnt_po9_am", "mnt_poa_am,mnt_9610_am", "mnt_9619_am", "mnt_9620_am", "mnt_9621_am", "mnt_9622_am", "mnt_9623_am", "mnt_9625_am", "mnt_9631_am", "mnt_9632_am", "mnt_9633_am", "mnt_9615_am", "mnt_rap_am", "mnt_ant_am", "mnt_rea_am", "mnt_rep_am", "mnt_si_am", "mnt_sc_am", "mnt_nn1_am", "mnt_nn2_am", "mnt_nn3_am", "mnt_caisson_am", "mnt_ivg_am")
  }

}