[éCow] Correctifs taureaux lignées

R/project/postprocessing.R

@@ -109,7 +109,7 @@ format_duration <- function(seconds) {
   sprintf("%02d:%02d:%02d", h, m, s)
 }
 
-save_data_vaches <- function(vaches){
+save_data_vaches <- function(vaches, cheptel){
   tabfinal <- vaches %>%
     select(
       cheptelDetenteur, anim, nom, nom_pere, embryon, donneuse, porteuse, tempsprod, age_years, ecowcarr, rg_carr, ptgV,
@@ -125,6 +125,9 @@ save_data_vaches <- function(vaches){
     "pn_males_kg", "pn_femelles_kg", "p120_males_kg", "p120_femelles_kg", "p210_males_kg", "p210_femelles_kg", "pointage_produits", "moy_notes_ecow_campagne", "rang_campagne"
   )
   
+  nb_lignes_supp <- delete_data_today(cheptel, "VACHES")
+  if (nb_lignes_supp > 0) message("Lignes du jour supprimées dans la table ecowVaches : ", nb_lignes_supp)
+  
   tab_format <- tabfinal %>%
     mutate(
       across(
@@ -151,9 +154,9 @@ save_data_vaches <- function(vaches){
   dbDisconnect(con)
 }
 
-save_data_campagne <- function(synth_camp){
+save_data_campagne <- function(campagnes, cheptel){
   # Stockage des données écow_camp
-  filtered_prod_camp <- synth_camp %>%
+  filtered_prod_camp <- campagnes %>%
     select(
       cheptel, numeroMipg, dateNaiss, rangVelageMipg, ecowcamp, nom_pere, produits
     )
@@ -162,6 +165,9 @@ save_data_campagne <- function(synth_camp){
     "cheptel", "mere_ipg", "danais", "ravelamer_corr", "note_ecow", "pere", "produits"
   )
   
+  nb_lignes_supp <- delete_data_today(cheptel, "CAMPAGNES")
+  if (nb_lignes_supp > 0) message("Lignes du jour supprimées dans la table ecowCampagne : ", nb_lignes_supp)
+  
   con <- get_db_connection()
   
   dbWriteTable(
@@ -174,14 +180,14 @@ save_data_campagne <- function(synth_camp){
   dbDisconnect(con) 
 }
 
-save_data_taureau <- function(data_taureaux){
+save_data_taureau <- function(taureaux, cheptel){
   # Stockage des données écow_taureaux
-  filtered_taureaux <- data_taureaux %>%
+  filtered_taureaux <- taureaux %>%
     select(
       cheptel, pereGenetique, nom, dateNaiss, nomCheptelNaiss, nb_prod_in_chep, utilgen, prol, mort, txrepros, nbpp, txvf, pnm, pnf, p120m, p120f, p210m, p210f, 
       dmsev, dssev, afsev,  fillestot_nbavecprod, fillestot_pctavecprod, fillestot_isu, fillestot_age_sort, fillestot_agevel1, fillestot_ivv1, fillestot_ivv2p, 
       fillestot_vieprod, fillestot_dmad, fillestot_dsad, fillestot_afad, fillestot_nbprod, fillestot_txrepros, fillestot_nbpp, fillestot_prol, fillestot_mort, 
-      fillestot_txvf, fillesact_nbavecprod, fillesact_pctavecprod, fillesact_isu, fillesact_age_sort, fillesact_agevel1, fillesact_ivv1, fillesact_ivv2p, 
+      fillestot_txvf, fillesact_nbavecprod, pctfillesact_avecprod, fillesact_isu, fillesact_age_sort, fillesact_agevel1, fillesact_ivv1, fillesact_ivv2p, 
       fillesact_vieprod, fillesact_dmad, fillesact_dsad, fillesact_afad, fillesact_nbprod, fillesact_txrepros, fillesact_nbpp, fillesact_prol, fillesact_mort, 
       fillesact_txvf, nbfilles_renouv
     )
@@ -194,6 +200,9 @@ save_data_taureau <- function(data_taureaux){
     "vieprod_fillesact", "dmad_fillesact", "dsad_fillesact", "afad_fillesact", "nbprod_fillesact", "txrepros_fillesact", "nbpp_fillesact", "prol_fillesact", "mort_fillesact", 
     "txvf_fillesact", "nbfilles_renouv"
   )
+  
+  nb_lignes_supp <- delete_data_today(cheptel, "TAUREAUX")
+  if (nb_lignes_supp > 0) message("Lignes du jour supprimées dans la table ecowTaureaux : ", nb_lignes_supp)
 
   con <- get_db_connection()
   
@@ -207,13 +216,13 @@ save_data_taureau <- function(data_taureaux){
   dbDisconnect(con) 
 }
 
-save_data_lignees <- function(stats_lignees){
-  filtered_lignees <- stats_lignees %>%
+save_data_lignees <- function(lignees, cheptel){
+  filtered_lignees <- lignees %>%
     select(
       cheptel, fondatrice, nom, dateNaiss, nomCheptelNaiss, nb_prod_in_chep, utilgen, prol, mort, txrepros, nbpp, txvf, pnm, pnf, p120m, 
-      p120f, p210m, p210f, dmsev, dssev, afsev, femtot_nbavecprod, femtot_pctavecprod, femtot_isu, femtot_age_sort, femtot_agevel1, femtot_ivv1, 
+      p120f, p210m, p210f, dmsev, dssev, afsev, femtot_nbavecprod, pctfem_avecprod, femtot_isu, femtot_age_sort, femtot_agevel1, femtot_ivv1, 
       femtot_ivv2p, femtot_vieprod, femtot_dmad, femtot_dsad, femtot_afad, femtot_nbprod, femtot_txrepros, femtot_nbpp, femtot_prol, 
-      femtot_mort, femtot_txvf, femact_nbavecprod, femact_pctavecprod, femact_isu, femact_age_sort, femact_agevel1, femact_ivv1, 
+      femtot_mort, femtot_txvf, femact_nbavecprod, pctfemact_avecprod, femact_isu, femact_age_sort, femact_agevel1, femact_ivv1, 
       femact_ivv2p, femact_vieprod, femact_dmad, femact_dsad, femact_afad, femact_nbprod, femact_txrepros, femact_nbpp, femact_prol, 
       femact_mort, femact_txvf, nbfilles_renouv
     )
@@ -227,6 +236,8 @@ save_data_lignees <- function(stats_lignees){
     "mort_femact", "txvf_femact", "nbfem_renouv" 
   )
   
+  nb_lignes_supp <- delete_data_today(cheptel, "LIGNEES")
+  if (nb_lignes_supp > 0) message("Lignes du jour supprimées dans la table ecowLignees : ", nb_lignes_supp)
   
   con <- get_db_connection()