Merge branch 'Ajustement_deploiements_web' into dev

.gitignore

@@ -8,3 +8,4 @@ temp_files/
 temp.html
 .Rprofile
 export_indic_logement_IT_20221018.*
+rsconnect/

data-raw/create_datamart.R

@@ -206,8 +206,8 @@ save(result,
      ronds_propor, 
      aplats_couleur,
      liste_unite,
-     file = "data/indicateurs.RData",
-     version = 2)
+    # version = 2, # pour un déploiement web, utiliser RData à jour, pour intranet, ancien format RData avec version = 2
+     file = "data/indicateurs.RData")
 
 DBI::dbDisconnect(con)
 rm(con)

data-raw/create_geo_datamart.R

@@ -46,4 +46,4 @@ liste_DEP <- creer_vect_terr(dep)
 liste_EPCI <- creer_vect_terr(epc)
 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

global.R

@@ -25,11 +25,9 @@ library(shinymanager)
 
 library(shinyWidgets)
 library(shinyalert)
-# library(apexcharter)
 
 library(leafem)
 library(formattable)
-# library(mefa4)
 
 library(purrr)
 library(shinyjs)
@@ -51,7 +49,7 @@ color_compar = gouvdown::gouv_colors("p1")[[1]]
   # 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"))
   # 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 ------------------
@@ -77,6 +75,8 @@ source("R/creer_chiffre_clef.R")
 # options highcharter --------------
 hcoptslang <- getOption("highcharter.lang")
 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)