lea/RProjects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Compare commits

base: lea/RProjects:0a6cb5fc957b29d1afcf333e3a50b25c16bc5938
Branches Tags
lea/RProjects:main
...
compare: lea/RProjects:d0fa2b6f1d47ff1e9fc2c4113c413042989c9b94
Branches Tags
lea/RProjects:main

2 Commits
0a6cb5fc95 ... d0fa2b6f1d

Author SHA1 Message Date
lea d0fa2b6f1d [éCow] correction listes vides 2026-06-24 15:29:35 +02:00
lea 522362d45d [écow] correction logs 2026-06-24 15:11:04 +02:00
2 changed files with 2 additions and 2 deletions
Expand all files Collapse all files
R/common/prepare_data.R
+1 -1
View File
@@ -8,7 +8,7 @@ suppressPackageStartupMessages({
#' @param tab_anims dataframe. Liste d'animaux brute #' @param tab_anims dataframe. Liste d'animaux brute
#' @return Liste d'animaux nettoyée #' @return Liste d'animaux nettoyée
clean_data_anims<- function(tab_anims){ clean_data_anims<- function(tab_anims){
if (nrow(tab_anims) == 0) return() if (is.null(tab_anims) || !isTRUE(nrow(tab_anims) > 0)) return()
result_data <- tab_anims %>% result_data <- tab_anims %>%
mutate( mutate(
dateNaiss = as.Date(as.POSIXct(dateNaiss / 1000, origin = "1970-01-01", tz = "UTC")), dateNaiss = as.Date(as.POSIXct(dateNaiss / 1000, origin = "1970-01-01", tz = "UTC")),
R/project/ecow_calculations.R
+1 -1
View File
@@ -54,7 +54,7 @@ calcul_ecow_by_chep <- function(cheptel, step = 3) {
################################################################################################################### ###################################################################################################################
#################################### Calcul ecow pour les vaches ######################################## #################################### Calcul ecow pour les vaches ########################################
################################################################################################################### ###################################################################################################################
message("Début partie vaches : ", length(vaches), " vaches à traiter.") message("Début partie vaches : ", nrow(vaches), " vaches à traiter.")
# Ajout info donneuses # Ajout info donneuses
donneuses <- cheptel_ecow$donneuses donneuses <- cheptel_ecow$donneuses