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

Securisation cle api

Browse Source
This commit is contained in:
Léa
2026-06-10 14:46:58 +02:00
parent 0443e7ddcb
commit da46965f95
3 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
R/api/plumber.R
+1 -1
View File
@@ -3,7 +3,7 @@ source(here::here('R/project/ecow_calculations.R'))
source(here::here('R/project/Untitled.R')) source(here::here('R/project/Untitled.R'))
source(here::here('R/project/postprocessing.R')) source(here::here('R/project/postprocessing.R'))
API_KEY <- 'mon_super_token_long_et_secret' API_KEY <- 'l0vabe3n2bv3r2kfmpawakavr64lsc'
#* @filter authenticate #* @filter authenticate
authenticate <- function(req, res) { authenticate <- function(req, res) {
R/project/ecow_calculations.R
+1 -1
View File
@@ -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 #' 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 #' @param cheptel character. Numéro du cheptel avec le FR devant
calcul_ecow_by_chep <- function(cheptel, step = 3) { 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() t0 <- Sys.time()
# Définit un environnement avec tous les paramètres qu'on veut rendre accessibles # Définit un environnement avec tous les paramètres qu'on veut rendre accessibles
R/project/old_commente.R
+1 -1
View File
@@ -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) li_prod$sexbov == '1')$pat07m, na.rm=T),1)
stats_peres$p210f[i] <- round(mean(subset(li_prod, stats_peres$p210f[i] <- round(mean(subset(li_prod,
li_prod$sexbov == '2')$pat07m, na.rm=T),1) 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) li_prod$sexbov == '1')$devmus, na.rm=T),1)
stats_peres$dssev[i] <- round(mean(subset(li_prod, stats_peres$dssev[i] <- round(mean(subset(li_prod,
li_prod$sexbov == '2')$devsqe, na.rm=T),1) li_prod$sexbov == '2')$devsqe, na.rm=T),1)