Renommage de tx_decisions_adhoc() en create_tx_decisions_adhoc()

NAMESPACE

@@ -9,12 +9,12 @@ export(create_key_figures_new_decisions)
 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)
 export(run_app)
-export(tx_decisions_adhoc)
 import(dplyr)
 import(highcharter)
 import(leaflet)

R/fct_create_key_figures.R

@@ -105,7 +105,7 @@ create_key_figures_new_decisions <- function(export_garance,
   }
 }
 
-#' tx_decisions_adhoc
+#' create_tx_decisions_adhoc
 #'
 #' Calcul du taux de soumission pour les AEPP-CC-ADHOC
 #'
@@ -122,7 +122,7 @@ create_key_figures_new_decisions <- function(export_garance,
 #' @importFrom dplyr filter
 #'
 #' @export
-tx_decisions_adhoc <- function(df_bilan_activite, select_annee) {
+create_tx_decisions_adhoc <- function(df_bilan_activite, select_annee) {
   # Filtrer les données en deux étapes
   df_bilan_activite_aepp_cc_adhoc_annee  <- df_bilan_activite |>
     dplyr::filter(type_consultation == "AEPP-CC-ADHOC", annee == select_annee)
@@ -140,8 +140,10 @@ tx_decisions_adhoc <- function(df_bilan_activite, select_annee) {
   # Calculer le nombre de décisions émises
   nb_emis <- nrow(emis)
 
-  # Calculer le taux de soumission et l'arrondir à 2 décimales
-  tx_decisions_adhoc <- round((nb_soumis / nb_emis) * 100, 2)
+  # Calculer le taux de soumission et l'arrondir à 2 décimales, en tenant
+  # compte de nb_emis
+  tx_decisions_adhoc <- ifelse(nb_emis == 0, 0,
+                               round((nb_soumis / nb_emis) * 100, 2))
 
   return(tx_decisions_adhoc)
 }

R/globals.R

@@ -14,6 +14,6 @@ globalVariables(unique(c(
   # mod_key_figures_server : <anonymous>:
   "annee_nouvelle_decision", "bilan_activite", "date_final",
   "date_nouvelle_decision", "date_tacite", "soumission_ee",
-  # tx_decisions_adhoc:
+  # create_tx_decisions_adhoc:
   "statut"
 )))

R/mod_key_figures.R

@@ -97,7 +97,7 @@ mod_key_figures_server <- function(id, r_global){
         r_global$df_export_garance,
         r_global$df_type_consultation,
         r_global$select_annee)
-      key_figure_tx_soumission_adhoc <- tx_decisions_adhoc(
+      key_figure_tx_soumission_adhoc <- create_tx_decisions_adhoc(
         r_global$df_export_garance,
         r_global$select_annee)
 

man/tx_decisions_adhoc.Rd → man/create_tx_decisions_adhoc.Rd

 % Generated by roxygen2: do not edit by hand
 % Please edit documentation in R/fct_create_key_figures.R
-\name{tx_decisions_adhoc}
-\alias{tx_decisions_adhoc}
-\title{tx_decisions_adhoc}
+\name{create_tx_decisions_adhoc}
+\alias{create_tx_decisions_adhoc}
+\title{create_tx_decisions_adhoc}
 \usage{
-tx_decisions_adhoc(df_bilan_activite, select_annee)
+create_tx_decisions_adhoc(df_bilan_activite, select_annee)
 }
 \arguments{
 \item{df_bilan_activite}{Le dataframe contenant les données de bilan