Renommage de generate_aepp_stats_table() en create_aepp_stats_table() et...

Renommage de generate_aepp_stats_table() en create_aepp_stats_table() et stockage dans un fichier fct_create_stats_table.R

NAMESPACE

@@ -3,6 +3,7 @@
 export(config_hchart_menu)
 export(create_activity_report)
 export(create_activity_report_table)
+export(create_aepp_stats_table)
 export(create_evolution_graph)
 export(create_key_figures_avis)
 export(create_key_figures_new_decisions)
@@ -10,7 +11,6 @@ export(create_map)
 export(create_monthly_evolution_graph)
 export(create_pie_chart)
 export(create_tx_decisions_adhoc)
-export(generate_aepp_stats_table)
 export(get_departement_name)
 export(get_trimestre_label)
 export(get_type_consultation_name)

R/fct_generate_aepp_stats_table.R → R/fct_create_stats_table.R

-#' generate_aepp_stats_table
+#' create_aepp_stats_table
 #'
 #' Génère un tableau statistique pour le suivi des avis de l'autorité environnementale.
 #'
@@ -15,7 +15,7 @@
 #' @importFrom dplyr filter group_by summarise bind_rows select
 #'
 #' @export
-generate_aepp_stats_table <- function(bilan_activite, input_year, input_trimestre = NULL) {
+create_aepp_stats_table <- function(bilan_activite, input_year, input_trimestre = NULL) {
   # row_names <- c("Avis exprès", "Avis tacite", "Total")
   # colnames_stats_aepp_type <- c("Type d'avis", "Documents d'urbanisme", "Autres", "Total")
   #

R/mod_statistics.R

@@ -10,7 +10,8 @@
 mod_statistics_ui <- function(id){
   ns <- NS(id)
   tagList(
-    h1("Statistiques sur les avis et d\u00e9cisions de l\'Autorit\u00e9 environnementale"),
+    h1("Statistiques sur les avis et d\u00e9cisions de l\'Autorit\u00e9
+       environnementale"),
     mod_export_date_ui(ns("export_date_3")),
     mod_selector_ui(ns("selector_3")),
     tags$br()
@@ -30,9 +31,9 @@ mod_statistics_server <- function(id, r_global){
 
     observeEvent(r_global$select_type_consultation, {
       if(r_global$select_type_consultation == "AEPP") {
-        generate_aepp_stats_table(bilan_activite,
-                                  r_global$select_annee,
-                                  r_global$select_trimestre)
+        create_aepp_stats_table(r_global$df_export_garance,
+                                r_global$select_annee,
+                                r_global$select_trimestre)
       }
 
     })

dev/flat_logique_metier.Rmd

@@ -395,13 +395,16 @@ filtered_activity_report <- create_activity_report_table(
         select_trimestre = 1)
 ```
 
-```{r function-generate_aepp_stats_table}
-#' Génère un tableau statistique pour le suivi des avis de l'autorité environnementale.
+```{r function-create_aepp_stats_table}
+#' Génère un tableau statistique pour le suivi des avis de l'autorité 
+#' environnementale.
 #'
-#' Cette fonction génère un tableau statistique à partir des données de suivi des avis
-#' de l'autorité environnementale, en fonction de l'année et du trimestre (ou année entière) spécifiés.
+#' @description Cette fonction génère un tableau statistique à partir des 
+#' données de suivi des avis de l'autorité environnementale, en fonction de 
+#' l'année et du trimestre (ou année entière) spécifiés.
 #'
-#' @param bilan_activite Un data frame contenant les données de suivi des avis de l'autorité environnementale.
+#' @param df_export_garance Un data frame contenant les données de suivi des 
+#' avis de l'autorité environnementale.
 #' @param input_year L'année pour laquelle générer le tableau statistique.
 #' @param input_trimestre (Facultatif) Le trimestre pour lequel générer le tableau statistique. Si omis, le tableau
 #' sera généré pour l'année entière.
@@ -411,7 +414,9 @@ filtered_activity_report <- create_activity_report_table(
 #' @importFrom dplyr filter group_by summarise bind_rows select apply rbind cbind data.frame
 #' 
 #' @export
-generate_aepp_stats_table <- function(bilan_activite, input_year, input_trimestre = NULL) {
+create_aepp_stats_table <- function(bilan_activite, 
+                                    input_year, 
+                                    input_trimestre = NULL) {
   row_names <- c("Avis expr\u00e8s", "Avis tacite", "Total")
   colnames_stats_aepp_type <- c("Type d\'avis", "Documents d\'urbanisme", "Autres", "Total")
 
@@ -503,9 +508,9 @@ generate_aepp_stats_table <- function(bilan_activite, input_year, input_trimestr
 
 ```
 
-```{r examples-generate_aepp_stats_table}
-generate_aepp_stats_table(bilan_activite, input_year = 2023, input_trimestre = 2)
-generate_aepp_stats_table(bilan_activite, input_year = 2023)
+```{r examples-create_aepp_stats_table}
+create_aepp_stats_table(bilan_activite, input_year = 2023, input_trimestre = 2)
+create_aepp_stats_table(bilan_activite, input_year = 2023)
 
 ```
 

man/generate_aepp_stats_table.Rd → man/create_aepp_stats_table.Rd

 % Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/fct_generate_aepp_stats_table.R
-\name{generate_aepp_stats_table}
-\alias{generate_aepp_stats_table}
-\title{generate_aepp_stats_table}
+% Please edit documentation in R/fct_create_stats_table.R
+\name{create_aepp_stats_table}
+\alias{create_aepp_stats_table}
+\title{create_aepp_stats_table}
 \usage{
-generate_aepp_stats_table(bilan_activite, input_year, input_trimestre = NULL)
+create_aepp_stats_table(bilan_activite, input_year, input_trimestre = NULL)
 }
 \arguments{
 \item{bilan_activite}{Un data frame contenant les données de suivi des avis de l'autorité environnementale.}