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")
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.