ajout list_flor

SebastienBoutry · Jul 3, 2023 · eb33c3c · eb33c3c
1 parent 385da39
commit eb33c3c
Show file tree

Hide file tree

Showing 5 changed files with 7 additions and 7 deletions.
diff --git a/R/fibdl.R b/R/fibdl.R
@@ -23,7 +23,7 @@ fibdl <- function(listflor, add_information_station) {
     fibdl_listflor_metrics() %>%
     fibdl_listflor_EQR(data=.,add_information_station=info_uo) %>%
     fibdl_listflor_EQR_standard() %>%
-    fibdl_uo_score(listflor=listflor) %>%
+    fibdl_uo_score(list_flor=listflor) %>%
     fibdl_ibdl() %>%
     fibdl_ibdl_qualify()
 

diff --git a/R/fibdl_listflor_transcode.R b/R/fibdl_listflor_transcode.R
@@ -12,13 +12,13 @@
 #' ab=c(202,20,2,26,12,5,6,74,5,2,3,3,15,10,5,20))
 #' fibdl_listflor_transcode(listflor)
 #'
-fibdl_listflor_transcode <- function(listflor){
+fibdl_listflor_transcode <- function(list_flor){
 
   transcodage<-IBDL:::table_transcodage %>%
     dplyr::select(abre, code_espece_boucle2,
                   denominations_sans_auteur.y,niveau2)
 
-  table_listflor_transcode <- listflor %>%
+  table_listflor_transcode <- list_flor %>%
     dplyr::left_join(transcodage,
                      by = c("taxons" = "abre")
     ) %>%

diff --git a/R/fibdl_uo_score.R b/R/fibdl_uo_score.R
@@ -7,9 +7,9 @@
 #' @export
 #'
 #' @examples
-fibdl_uo_score <- function(data,listflor){
+fibdl_uo_score <- function(data,list_flor){
 
-  id_prelevement_admi<-fibdl_listflor_qualify(fibdl_listflor_transcode(listflor))[[2]]
+  id_prelevement_admi<-fibdl_listflor_qualify(fibdl_listflor_transcode(list_flor))[[2]]
   ##
   table_score_ibdl <- data %>%
     dplyr::group_by(id_prelevement,

diff --git a/man/fibdl_listflor_transcode.Rd b/man/fibdl_listflor_transcode.Rd
diff --git a/man/fibdl_uo_score.Rd b/man/fibdl_uo_score.Rd