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

Merge branch 'Ajustement_deploiements_web' into 'dev'

Ajustement deploiements web

See merge request !55
parents 22563354 c18bcd05
No related branches found
No related tags found
1 merge request!55Ajustement deploiements web
...@@ -8,3 +8,4 @@ temp_files/ ...@@ -8,3 +8,4 @@ temp_files/
temp.html temp.html
.Rprofile .Rprofile
export_indic_logement_IT_20221018.* export_indic_logement_IT_20221018.*
rsconnect/
...@@ -206,8 +206,8 @@ save(result, ...@@ -206,8 +206,8 @@ save(result,
ronds_propor, ronds_propor,
aplats_couleur, aplats_couleur,
liste_unite, liste_unite,
file = "data/indicateurs.RData", # version = 2, # pour un déploiement web, utiliser RData à jour, pour intranet, ancien format RData avec version = 2
version = 2) file = "data/indicateurs.RData")
DBI::dbDisconnect(con) DBI::dbDisconnect(con)
rm(con) rm(con)
......
...@@ -46,4 +46,4 @@ liste_DEP <- creer_vect_terr(dep) ...@@ -46,4 +46,4 @@ liste_DEP <- creer_vect_terr(dep)
liste_EPCI <- creer_vect_terr(epc) liste_EPCI <- creer_vect_terr(epc)
liste_COM <- creer_vect_terr(com) liste_COM <- creer_vect_terr(com)
save(com, epc, dep, reg, liste_REG, liste_DEP, liste_EPCI, liste_COM, file = "data/geo.RData", version = 2) save(com, epc, dep, reg, liste_REG, liste_DEP, liste_EPCI, liste_COM, file = "data/geo.RData") #, version = 2 # pour un déploiement web, utiliser RData à jour, pour intranet, RData version 2
...@@ -25,11 +25,9 @@ library(shinymanager) ...@@ -25,11 +25,9 @@ library(shinymanager)
library(shinyWidgets) library(shinyWidgets)
library(shinyalert) library(shinyalert)
# library(apexcharter)
library(leafem) library(leafem)
library(formattable) library(formattable)
# library(mefa4)
library(purrr) library(purrr)
library(shinyjs) library(shinyjs)
...@@ -51,7 +49,7 @@ color_compar = gouvdown::gouv_colors("p1")[[1]] ...@@ -51,7 +49,7 @@ color_compar = gouvdown::gouv_colors("p1")[[1]]
# courbe du territoire de comparaison sur le graphique d'évolution (points + segments) # courbe du territoire de comparaison sur le graphique d'évolution (points + segments)
vec_col_gouv <- gouvdown::gouv_colors(c("p1", "o0", "c2", "d1", "b2", "g2", "a1", "r3")) vec_col_gouv <- gouvdown::gouv_colors(c("p1", "o0", "c2", "d1", "b2", "g2", "a1", "r3"))
# carte en aplat de couleurs catégorielle # carte en aplat de couleurs catégorielle
pal_gouv_div <- gouvdown::gouv_colors("p0", "p2", "p4", "c4", "c2", "c0") pal_gouv_div <- gouvdown::gouv_colors("f0", "f2", "f4", "m4", "m2", "m0")
# actualisation des données ------------------ # actualisation des données ------------------
...@@ -77,6 +75,8 @@ source("R/creer_chiffre_clef.R") ...@@ -77,6 +75,8 @@ source("R/creer_chiffre_clef.R")
# options highcharter -------------- # options highcharter --------------
hcoptslang <- getOption("highcharter.lang") hcoptslang <- getOption("highcharter.lang")
hcoptslang$decimalPoint <- "," hcoptslang$decimalPoint <- ","
hcoptslang$shortMonths <- c("Jan", "Fev", "Mar", "Avr", "Mai", "Juin", "Juil", "Aout", "Sept", "Oct", "Nov", "Dec")
hcoptslang$months <- c("Janvier", "Fevrier", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novembre", "Decembre")
options(highcharter.lang = hcoptslang) options(highcharter.lang = hcoptslang)
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment