Définir les attributs des prélèvements
def_attribut_id(df, var_id, var_tmp, var_pro = NULL)
tb data frame
if (FALSE) { # \dontrun{
df <- mef_creer_passerelle() %>%
mef_ajouter_ope_date() %>%
mef_ajouter_type_protocole()
def_id <- def_attribut_id (var_id = pop_id,
var_tmp = annee,
var_pro = pro_libelle)
} # }