Securisation cle api

R/api/plumber.R

@@ -3,7 +3,7 @@ source(here::here('R/project/ecow_calculations.R'))
 source(here::here('R/project/Untitled.R'))
 source(here::here('R/project/postprocessing.R'))
 
-API_KEY <- 'mon_super_token_long_et_secret'
+API_KEY <- 'l0vabe3n2bv3r2kfmpawakavr64lsc'
 
 #* @filter authenticate
 authenticate <- function(req, res) {

R/project/ecow_calculations.R

@@ -18,7 +18,7 @@ source(here::here("R/project/preprocessing.R"))
 #' step : 1 si calcul des vaches uniquement, 2 si vaches et taureaux, 3 global
 #' @param cheptel character. Numéro du cheptel avec le FR devant
 calcul_ecow_by_chep <- function(cheptel, step = 3) {
-  message("Début fonction calcul_ecow_by_chep")
+  message("Début fonction calcul_ecow_by_chep pour cheptel : ", cheptel)
   t0 <- Sys.time()
 
   # Définit un environnement avec tous les paramètres qu'on veut rendre accessibles 

R/project/old_commente.R

@@ -2196,7 +2196,7 @@ render_all_fic <- function(cheptel, tech, VN = FALSE) { # cheptel avec le FR, te
                                                 li_prod$sexbov == '1')$pat07m, na.rm=T),1)
       stats_peres$p210f[i] <- round(mean(subset(li_prod, 
                                                 li_prod$sexbov == '2')$pat07m, na.rm=T),1)
-      stats_peres$dmsev[i] <- round(mean(subset(li_prod, # -------------------------------A voir avec Lauréna si normal qu'on prenne dm pour male et ds pour femelles
+      stats_peres$dmsev[i] <- round(mean(subset(li_prod, # -------------------------------A voir avec Lauréna si normal qu'on prenne dm pour male et ds pour femelles : rep : non erreur de copier coller
                                                 li_prod$sexbov == '1')$devmus, na.rm=T),1)
       stats_peres$dssev[i] <- round(mean(subset(li_prod, 
                                                 li_prod$sexbov == '2')$devsqe, na.rm=T),1)