From 1ff794ec5b9d0df524307d52bb4fac9a5a0f5d02 Mon Sep 17 00:00:00 2001
From: LE DURAND Matteo <matteo.le-durand@developpement-durable.gouv.fr>
Date: Tue, 18 Mar 2025 11:09:13 +0100
Subject: [PATCH] topics remplacer par etiquette qui est = topics + groupe
---
server.R | 10 +++++-----
ui.R | 4 ++--
2 files changed, 7 insertions(+), 7 deletions(-)
diff --git a/server.R b/server.R
index fe4dc3e..7e6b438 100644
--- a/server.R
+++ b/server.R
@@ -2,7 +2,7 @@ server <- function(input, output, session) {
r <- reactiveValues(
filteredData = all_data,
filteredByProject = all_data, # Étape intermédiaire filtrée par daterange et project_name
- filteredTopics = NULL,
+ filteredetiquette = NULL,
filteredProjects = NULL,
filteredAuthors = NULL,
filteredReCodes = NULL,
@@ -27,7 +27,7 @@ server <- function(input, output, session) {
req(input$daterange)
r$filteredData <- r$filteredByDate %>%
filter(
- (if (length(input$topics)) sapply(input$topics, function(t) grepl(t, topics)) %>% rowSums() > 0 else TRUE) &
+ (if (length(input$etiquette)) sapply(input$etiquette, function(t) grepl(t, etiquette)) %>% rowSums() > 0 else TRUE) &
(if (length(input$auteur)) auteur %in% input$auteur else TRUE) &
(if (length(input$re_code)) re_code %in% input$re_code else TRUE) &
(if (length(input$categorie)) categorie %in% input$categorie else TRUE)
@@ -38,13 +38,13 @@ server <- function(input, output, session) {
# Fonction de mise à jour des choix pour les filtres
updateFilters <- reactive({
# Basé sur les données filtrées par date et projet
- updateSelectizeInput(session, "topics", choices = unique(r$filteredByDate$topics)%>%
+ updateSelectizeInput(session, "etiquette", choices = unique(r$filteredByDate$etiquette)%>%
strsplit(split = ",") %>% # Divise les chaînes en éléments séparés
unlist() %>% # Aplatit la liste obtenue
na.omit() %>% # Supprime les NA (au cas où)
.[. != ""] %>% # Supprime les chaînes vides
trimws() %>% # suppremie les espace avnt et apres
- unique() , selected = input$topics)
+ unique() , selected = input$etiquette)
updateSelectizeInput(session, "author", choices = unique(r$filteredByDate$auteur), selected = input$auteur)
updateSelectizeInput(session, "categorie", choices = unique(r$filteredByDate$categorie), selected = input$categorie)
@@ -58,7 +58,7 @@ server <- function(input, output, session) {
filter(updated_at >= as.Date(input$daterange[[1]]) &
updated_at <= as.Date(input$daterange[[2]]))
r$filteredData <- r$filteredByDate
- updateSelectizeInput(session, "topics", selected = NULL)
+ updateSelectizeInput(session, "etiquette", selected = NULL)
updateSelectizeInput(session, "author", selected = NULL)
updateSelectizeInput(session, "categorie", selected = NULL)
updateFilters()
diff --git a/ui.R b/ui.R
index d2e1e24..b61cb63 100644
--- a/ui.R
+++ b/ui.R
@@ -33,9 +33,9 @@ ui <- shinygouv::navbarPage_dsfr(
shinygouv::column_dsfr(
3,
selectizeInput(
- inputId = "topics",
+ inputId = "etiquette",
label = "Étiquette :",
- choices = all_data$topics %>%
+ choices = all_data$etiquette %>%
strsplit(split = ",") %>% # Divise les chaînes en éléments séparés
unlist() %>% # Aplatit la liste obtenue
na.omit() %>% # Supprime les NA (au cas où)
--
GitLab