Skip to content
Snippets Groups Projects
Commit 88a7c1d0 authored by ronan.vignard's avatar ronan.vignard
Browse files

Merge branch 'dev' into 'master' 

Fix issues #21, #22, #24, #25, #26, #27, #29, #30, #32 et #33

Closes #33, #32, #30, #29, #27, #26, #25, #24, #22 et #21

See merge request dreal-datalab/autorite_environnementale!29
parents 3331cb41 3a866cf6
No related branches found
No related tags found
1 merge request!29Fix issues #21, #22, #24, #25, #26, #27, #29, #30, #32 et #33
Expand all Hide whitespace changes
Inline Side-by-side
autorite_environnementale/changelog.md
+ 17
− 0
View file @ 88a7c1d0
# Journal des modifications
## Version 1.2.2.4
Menu principal :
* Modification des intitulés des sous-items des menus des rubriques "Bilans d'activité" et "Statistiques"
Page d'accueil **"Chiffres-clés"** :
* Correction de l'affichage des chiffres-clés en cas de données incomplètes
Rubrique **"Bilans d'activité"** :
* Ajout d'une colonne `procedure` dans les tableaux
Rubrique **"Statistiques"** :
* Ajout de graphiques par procédure
* Création d'un tableau fusionnant les deux précédents tableaux par type d'avis et de dossiers pour les Avis Plans/Programmes
* Dédoublement du tableau "Répartition par département" pour distinguer les documents d'urbanisme des autres Plans/Programmes
* Correction du bug générant des exports des graphiques en noir & blanc
* Remplacement des valeurs NA par 0 dans les tableaux
## Version 1.2.2.3
* Actualisation du graphique d'évolution par trimestre pour l'année sélectionnée à la place de l'année en cours dans la rubrique **"Évolutions"**
* Ajout de l'année sélectionnée dans le titre des rubriques **"Bilans d'activité"**, **"Statistiques"** et **"Évolutions"**
......
autorite_environnementale/global.R
+ 1
− 2
View file @ 88a7c1d0
......@@ -13,6 +13,7 @@ library(highcharter)
library(viridisLite)
library(xtable)
library(shinycssloaders)
library(RColorBrewer)
rm(list=ls())
options(shiny.sanitize.errors = FALSE)
......@@ -26,7 +27,6 @@ on.exit(dbDisconnect(con))
bilan_activite <- dbGetQuery(con, "SELECT * FROM avis_ae.export_garance WHERE type_consultation IN ('AEPP', 'AEPP-CC', 'AEPR', 'AEPR-CC') ORDER BY numero")
# Encodage (pour les environnements Windows)
Encoding(bilan_activite$charge_mission) <- "UTF-8"
Encoding(bilan_activite$intitule_operation) <- "UTF-8"
Encoding(bilan_activite$communes) <- "UTF-8"
Encoding(bilan_activite$petitionnaire) <- "UTF-8"
......@@ -45,7 +45,6 @@ bilan_activite$date_nouvelle_decision <- format(bilan_activite$date_nouvelle_dec
# Conversion des champs à filtrer en facteurs
bilan_activite$numero <- as.character(bilan_activite$numero)
bilan_activite$departement <- as.factor(bilan_activite$departement)
bilan_activite$charge_mission <- as.factor(bilan_activite$charge_mission)
bilan_activite$domaine <- as.factor(bilan_activite$domaine)
bilan_activite$categorie <- as.factor(bilan_activite$categorie)
bilan_activite$document_urbanisme <- as.factor(bilan_activite$document_urbanisme)
......
autorite_environnementale/server.R
+ 279
− 153
View file @ 88a7c1d0
This diff is collapsed.
autorite_environnementale/ui.R
+ 28
− 23
View file @ 88a7c1d0
......@@ -12,16 +12,16 @@ sidebar <- dashboardSidebar(
menuItem("Accueil", tabName = "home", icon = icon('home')),
selectInput("select_year","Année :",c(year(today()):2016),selected=year(today())),
menuItem('Bilans d\'activité', tabName = 'menuOne', icon = icon('table'),
menuSubItem('AEPP', tabName = 'bilan_activite_aepp'),
menuSubItem('AEPP-CC', tabName = 'bilan_activite_aepp_cc'),
menuSubItem('AEPR', tabName = 'bilan_aepr'),
menuSubItem('AEPR-CC', tabName = 'bilan_aepr_cc')
menuSubItem('Avis AE - Plans/Programmes', tabName = 'bilan_activite_aepp'),
menuSubItem(HTML('Décisions cas par cas -<br/>Plans/Programmes'), tabName = 'bilan_activite_aepp_cc'),
menuSubItem('Avis AE - Projets', tabName = 'bilan_aepr'),
menuSubItem('Décisions cas par cas - Projets', tabName = 'bilan_aepr_cc')
),
menuItem('Statistiques', tabName = 'stats', icon = icon('bar-chart'),
menuSubItem('AEPP', tabName = 'stats_aepp'),
menuSubItem('AEPP-CC', tabName = 'stats_aepp_cc'),
menuSubItem('AEPR', tabName = 'stats_aepr'),
menuSubItem('AEPR-CC', tabName = 'stats_aepr_cc')
menuSubItem('Avis AE - Plans/Programmes', tabName = 'stats_aepp'),
menuSubItem(HTML('Décisions cas par cas -<br/>Plans/Programmes'), tabName = 'stats_aepp_cc'),
menuSubItem('Avis AE - Projets', tabName = 'stats_aepr'),
menuSubItem('Décisions cas par cas - Projets', tabName = 'stats_aepr_cc')
),
menuItem("Évolutions", tabName = "evolutions", icon = icon('random'),
menuSubItem('Années précédentes', tabName = 'previous_years'),
......@@ -120,45 +120,50 @@ body <- dashboardBody(
tabPanel("Trimestre 1",
fluidRow(
column(width = 12, br(),
box(h3("Répartition par type d'avis"), status = "info", tableOutput('aepp_type_avis_trim_1'),
h3("Répartition par type de dossiers"), tableOutput('aepp_type_dossiers_trim_1')),
box(h3("Répartition par département"), status = "info", tableOutput('aepp_departement_trim_1'))
box(h3("Répartition par type d'avis et de dossiers"), status = "info", tableOutput('aepp_type_avis_trim_1')),
box(h3("Répartition par département "), status = "info",
h4("Documents d'urbanisme"), tableOutput('aepp_departement_du_trim_1'),
h4("Autres Plans/Programmes"), tableOutput('aepp_departement_autres_trim_1'))
)
)
),
tabPanel("Trimestre 2",
fluidRow(
column(width = 12, br(),
box(h3("Répartition par type d'avis"), status = "info", tableOutput('aepp_type_avis_trim_2'),
h3("Répartition par type de dossiers"), tableOutput('aepp_type_dossiers_trim_2')),
box(h3("Répartition par département"), status = "info", tableOutput('aepp_departement_trim_2'))
box(h3("Répartition par type d'avis et de dossiers"), status = "info", tableOutput('aepp_type_avis_trim_2')),
box(h3("Répartition par département"), status = "info",
h4("Documents d'urbanisme"), tableOutput('aepp_departement_du_trim_2'),
h4("Autres Plans/Programmes"), tableOutput('aepp_departement_autres_trim_2'))
)
)
),
tabPanel("Trimestre 3",
fluidRow(
column(width = 12, br(),
box(h3("Répartition par type d'avis"), status = "info", tableOutput('aepp_type_avis_trim_3'),
h3("Répartition par type de dossiers"), tableOutput('aepp_type_dossiers_trim_3')),
box(h3("Répartition par département"), status = "info", tableOutput('aepp_departement_trim_3'))
box(h3("Répartition par type d'avis et de dossiers"), status = "info", tableOutput('aepp_type_avis_trim_3')),
box(h3("Répartition par département"), status = "info",
h4("Documents d'urbanisme"), tableOutput('aepp_departement_du_trim_3'),
h4("Autres Plans/Programmes"), tableOutput('aepp_departement_autres_trim_3'))
)
)
),
tabPanel("Trimestre 4",
fluidRow(
column(width = 12, br(),
box(h3("Répartition par type d'avis"), status = "info", tableOutput('aepp_type_avis_trim_4'),
h3("Répartition par type de dossiers"), tableOutput('aepp_type_dossiers_trim_4')),
box(h3("Répartition par département"), status = "info", tableOutput('aepp_departement_trim_4'))
box(h3("Répartition par type d'avis et de dossiers"), status = "info", tableOutput('aepp_type_avis_trim_4')),
box(h3("Répartition par département"), status = "info",
h4("Documents d'urbanisme"), tableOutput('aepp_departement_du_trim_4'),
h4("Autres Plans/Programmes"), tableOutput('aepp_departement_autres_trim_4'))
)
)
),
tabPanel("Annuel",
fluidRow(
column(width = 12, br(),
box(h3("Répartition par type d'avis"), status = "info", tableOutput('aepp_type_avis_annuel'),
h3("Répartition par type de dossiers"), tableOutput('aepp_type_dossiers_annuel')),
box(h3("Répartition par département"), status = "info", tableOutput('aepp_departement_annuel'))
box(h3("Répartition par type d'avis et de dossiers"), status = "info", tableOutput('aepp_type_avis_annuel')),
box(h3("Répartition par département"), status = "info",
h4("Documents d'urbanisme"), tableOutput('aepp_departement_annuel_du'),
h4("Autres Plans/Programmes"), tableOutput('aepp_departement_annuel_autres'))
)
)
),
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment