Skip to content
Snippets Groups Projects
Commit 8befdebf authored by Juliette Engelaere-Lefebvre's avatar Juliette Engelaere-Lefebvre
Browse files

diverses adaptations pour la recette déclenchée début 2024

- ménage dans les packages chargés par l'app
- élimination des libellés de variable dans double dans la dataprep du datamart
parent ad336a93
No related branches found
No related tags found
No related merge requests found
......@@ -4,10 +4,9 @@ library(datalibaba)
library(tidyverse)
library(furrr)
library(COGiter)
library(googlesheets4)
# remotes::install_github("pachevalier/tricky")
library(tricky)
library(formattable)
library(googlesheets4)
rm(list = ls())
......@@ -60,7 +59,7 @@ metadata_theme_0 <- read_sheet("https://docs.google.com/spreadsheets/d/1n-dhtrJM
# décomposition des indicateurs : lecture et mise en forme de la table des familles de répartition de chaque indicateur
liens_indicateurs <- read_sheet("https://docs.google.com/spreadsheets/d/1n-dhtrJM3JwFVz5WSEGOQzQ8A0G7VT_VcxDe5gh6zSo/edit#gid=60292277",
sheet = "table_liens_indicateurs") %>%
mutate(indicateur = tolower(indicateur)) %>%
mutate(indicateur = tolower(indicateur), sous_indicateur = tolower(sous_indicateur)) %>%
left_join(metadata_donnee_0, by = c("indicateur" = "variable")) %>%
rename(libelle_indicateur = libelle_variable) %>%
select(indicateur, libelle_indicateur, sous_indicateur, famille, libelle_famille)
......@@ -143,7 +142,7 @@ save(result_0, file = "data/result_0.RData")
result_1 <- result_0 %>% # ensembles des données téléchargées du datamart
# ajout des métadonnées associées : libellé, unités, secret, source
inner_join(metadata_donnee_0 %>% select(-source) , by = "variable") %>% # un left_join plutôt qu'un inner_join pour étudier les echecs de jointure
inner_join(metadata_donnee_0 %>% select(-source) %>% group_by(variable) %>% slice(1) %>% ungroup(), by = "variable") %>% # un left_join plutôt qu'un inner_join pour étudier les echecs de jointure
filter(secret == "non") %>% # on ne garde que les indicateurs publics et appariés au référentiel des indicateurs
filter(!is.na(date)) %>%
# ajout du libellé des sources
......
......@@ -3,36 +3,32 @@
library(shiny)
library(shinydashboard)
library(shinycustomloader)
library(COGiter)
library(shinycssloaders)
library(highcharter)
library(DT)
library(dplyr)
library(glue)
library(leaflet)
library(htmlwidgets)
library(shinyWidgets)
library(shinyalert)
library(shinyjs)
library(COGiter)
library(sf)
library(lubridate)
library(stringr)
library(tidyr)
library(shinycssloaders)
library(leaflet)
library(leaflet.extras)
library(leafem)
library(forcats)
library(viridis)
library(htmlwidgets)
library(knitr)
library(kableExtra)
library(shinymanager)
# library(shinymanager)
library(shinyWidgets)
library(shinyalert)
library(leafem)
library(formattable)
library(DT)
# library(viridis)
library(purrr)
library(shinyjs)
library(tibble)
library(tidyverse)
library(glue)
options(shiny.fullstacktrace = TRUE)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment