Indentation

R/fct_create_charts.R

@@ -54,7 +54,8 @@ create_pie_chart <- function(data,
     'd\u00e9partement' = if (select_departement == "Tous") {
       as.character(filtered_data$departement)
     } else {
-      as.character(filtered_data$departement[filtered_data$departement == select_departement])
+      as.character(filtered_data$departement[filtered_data$departement ==
+                                               select_departement])
     },
     'domaine' = as.character(filtered_data$domaine),
     'cat\u00e9gorie' = as.character(filtered_data$categorie),

R/fct_create_key_figures.R

@@ -39,7 +39,8 @@ create_key_figures_avis <- function(export_garance,
         nb_avis = dplyr::n(),
         nb_avis_signes = sum(!is.na(date_final)),
         nb_avis_tacites = sum(!is.na(date_tacite)),
-        tx_avis_soumis_ee = round(sum(!is.na(soumission_ee)) / dplyr::n() * 100, 2)
+        tx_avis_soumis_ee = round(sum(!is.na(soumission_ee)) /
+                                    dplyr::n() * 100, 2)
       ) |>
       dplyr::full_join(df_type_consultation,
                        by = c("type_consultation" = "identifiant")) |>

R/fct_create_map.R

@@ -45,7 +45,8 @@ create_map <- function(table_name,
 
   # Récupérer les champs departement et annee de bilan_activite par jointure
   merged_data <- data |>
-    dplyr::left_join(df_bilan_activite |> dplyr::select(numero, departement, annee),
+    dplyr::left_join(df_bilan_activite |>
+                       dplyr::select(numero, departement, annee),
                      by = c("numero" = "numero"))
 
   # Filtre par année si une année est sélectionnée