Merge branch 'write_fct_create_stats_table' into 'dev'

Nettoyage de la fonction create_table_aepp_type_avis

See merge request dreal-pdl/csd/suivi-avis-ae!12

NAMESPACE

@@ -28,6 +28,7 @@ importFrom(DT,renderDT)
 importFrom(RColorBrewer,brewer.pal)
 importFrom(datalibaba,importer_data)
 importFrom(dplyr,arrange)
+importFrom(dplyr,bind_rows)
 importFrom(dplyr,filter)
 importFrom(dplyr,full_join)
 importFrom(dplyr,group_by)

R/fct_create_stats_table.R

@@ -31,26 +31,25 @@ create_table_aepp_type_avis <- function(data,
   if (select_trimestre %in% 1:4) {
     data <- data |> dplyr::filter(trimestre == select_trimestre)
   }
+
   # Filter le dataframe avec l'année et le type de consultation
   data <- data |> dplyr::filter(
     type_consultation == select_type_consultation,
     annee == select_annee)
+
   # Calculer le nombre d'avis signés
   create_nb_avis <- function(data) {
     data |>
-      # dplyr::filter(type_consultation == select_type_consultation,
-      #               annee == select_annee) |>
       dplyr::summarise(
         nb_du = sum(!is.na(date_final) & document_urbanisme == "oui"),
         nb_autres = sum(!is.na(date_final) & document_urbanisme == "non"),
         total = sum(!is.na(date_final))
       )
   }
+
   # Calculer le nombre de tacites
   create_nb_tacite <- function(data) {
     data |>
-      # dplyr::filter(type_consultation == select_type_consultation,
-      #               annee == select_annee) |>
       dplyr::summarise(
         nb_du = sum(!is.na(date_tacite) & document_urbanisme == "oui"),
         nb_autres = sum(!is.na(date_tacite) & document_urbanisme == "non"),
@@ -66,44 +65,7 @@ create_table_aepp_type_avis <- function(data,
   table <- data.frame(row_names, rbind(total_rows, total_cols))
 
   return(table)
-
-  # Filtrer le dataframe si un trimestre est sélectionné
-  if (select_trimestre %in% 1:4) {
-    data <- data |> dplyr::filter(trimestre == select_trimestre)
-  }
-  # Filter le dataframe avec l'année et le type de consultation
-  data <- data |> dplyr::filter(
-    type_consultation == select_type_consultation,
-    annee == select_annee)
-  # Calculer le nombre d'avis signés
-  create_nb_avis <- function(data) {
-    data |>
-      # dplyr::filter(type_consultation == select_type_consultation,
-      #               annee == select_annee) |>
-      dplyr::summarise(
-        nb_du = sum(!is.na(date_final) & document_urbanisme == "oui"),
-        nb_autres = sum(!is.na(date_final) & document_urbanisme == "non"),
-        total = sum(!is.na(date_final))
-      )
-  }
-  # Calculer le nombre de tacites
-  create_nb_tacite <- function(data) {
-    data |>
-      # dplyr::filter(type_consultation == select_type_consultation,
-      #               annee == select_annee) |>
-      dplyr::summarise(
-        nb_du = sum(!is.na(date_tacite) & document_urbanisme == "oui"),
-        nb_autres = sum(!is.na(date_tacite) & document_urbanisme == "non"),
-        total = sum(!is.na(date_tacite))
-      )
-  }
-
-  # Joindre les avis signés et les tacites dans un dataframe
-  total_rows <- rbind(create_nb_avis(data), create_nb_tacite(data))
-  # Calculer le total des colonnes dans un dataframe
-  total_cols <- data.frame(t(colSums(total_rows)))
-  # Ajouter ce total et le nom des lignes dans un dataframe
-  table <- data.frame(row_names, rbind(total_rows, total_cols))
+}
 
 #' create_table_departement
 #'

dev/flat_logique_metier.Rmd

@@ -429,21 +429,22 @@ create_table_aepp_type_avis <- function(data,
   if (select_trimestre %in% 1:4) {
     data <- data |> dplyr::filter(trimestre == select_trimestre)
   }
+  
   # Filter le dataframe avec l'année et le type de consultation
   data <- data |> dplyr::filter(
     type_consultation == select_type_consultation,
     annee == select_annee)
+  
   # Calculer le nombre d'avis signés
   create_nb_avis <- function(data) {
     data |>
-      # dplyr::filter(type_consultation == select_type_consultation,
-      #               annee == select_annee) |>
       dplyr::summarise(
         nb_du = sum(!is.na(date_final) & document_urbanisme == "oui"),
         nb_autres = sum(!is.na(date_final) & document_urbanisme == "non"),
         total = sum(!is.na(date_final))
       ) 
   }
+  
   # Calculer le nombre de tacites
   create_nb_tacite <- function(data) {
     data |>
@@ -455,6 +456,7 @@ create_table_aepp_type_avis <- function(data,
         total = sum(!is.na(date_tacite))
       )
   }
+  
   # Joindre les avis signés et les tacites dans un dataframe
   total_rows <- rbind(create_nb_avis(data), create_nb_tacite(data))
   # Calculer le total des colonnes dans un dataframe
@@ -463,7 +465,6 @@ create_table_aepp_type_avis <- function(data,
   table <- data.frame(row_names, rbind(total_rows, total_cols))
   
   return(table)
-  
 }
 
 ```