Ajout donneuses/porteuses

R/project/preprocessing.R

@@ -115,7 +115,7 @@ get_synth_prod_vaches <- function(vaches, produits, params_ponderation){
       campn_max = {cn <- campagneNaiss[!is.na(campagneNaiss)]; if (length(cn)) max(cn) else NA_integer_},
       nbcampvel = ifelse(!is.na(campn_min) & !is.na(campn_max),
                          campn_max - campn_min + 1, NA_integer_),
-      #porteuse = summary$embryon,
+      porteuse = any(embryon == 'O'),
       
       # date du dernier anais (dernier événement)
       last_danais = {d <- dateNaiss[!is.na(dateNaiss)]; if (length(d)) max(d) else as.Date(NA)},
@@ -198,7 +198,7 @@ get_synth_prod_vaches <- function(vaches, produits, params_ponderation){
       prol = round(n_veaux / nbcampvel * 100, 1),
       
       # pointage produits
-      ptgP = round(pps$devmus * mean_devmus + pps$devsqe * mean_devsqe + pps$af * mean_af, 1)
+      ptgP = ifelse( is.na(mean_devmus), NA_real_, round(pps$devmus * mean_devmus + pps$devsqe * mean_devsqe + pps$af * mean_af, 1))
     ) %>%
     # Conversion des NaN en NA sur certaines moyennes
     mutate(across(