mise en oeuvre des fonctions de visualisation du tableau de bord ESU

mystère du warning "impossible de traduire ... dans l’encodage natif"

0 errors  | 1 warning  | 1 note 

── R CMD check results ─────────────────────────────────── pesticides.pdl 0.0.0.9000 ────
Duration: 3m 59.6s

❯ checking R files for syntax errors ... WARNING
  Avis dans le fichier ''R/fct_explorer_mesures.R'' :
    impossible de traduire 'Fr<U+00E9>quence de d<U+00E9>passement de 0,1 <U+00B5>g/l' dans l’encodage natif
    impossible de traduire 'Fr<U+00E9>quence de quantification' dans l’encodage natif
    impossible de traduire 'Fr<U+00E9>quence de d<U+00E9>passement de 0,1 <U+00B5>g/l' dans l’encodage natif
    impossible de traduire 'Fr<U+00E9>quence de quantification' dans l’encodage natif
    impossible de traduire 'Fr<U+00E9>quence de d<U+00E9>passement de 0,1 <U+00B5>g/l' dans l’encodage natif
    impossible de traduire 'Fr<U+00E9>quence de quantification' dans l’encodage natif
    impossible de traduire 'Recherch<U+00E9>e mais pas trouv<U+00E9>e' dans l’encodage natif
    impossible de traduire 'Trouv<U+00E9>e' dans l’encodage natif
    impossible de traduire 'Recherch<U+00E9>e mais pas trouv<U+00E9>e' dans l’encodage natif
    impossible de traduire 'Trouv<U+00E9>e' dans l’encodage natif
    impossible de traduire 'Recherch<U+00E9>e mais pas trouv<U+00E9>e' dans l’encodage natif
    impossible de traduire 'Trouv<U+00E9>e' dans l’encodage natif
    impossible de traduire 'Inf<U+00E9>rieur <U+00E0> 0,5 <U+00B5>g/l' dans l’encodage natif
    impossible de traduire 'Sup<U+00E9>rieur <U+00E0> 0,5 <U+00B5>g/l' dans l’encodage natif
    impossible de traduire 'Inf<U+00E9>rieur <U+00E0> 0,1 <U+00B5>g/l' dans l’encodage natif
    impossible de traduire 'Sup<U+00E9>rieur <U+00E0> 0,1 <U+00B5>g/l' dans l’encodage natif

❯ checking package dependencies ... NOTE
  Imports includes 25 non-default packages.
  Importing from so many packages makes the package vulnerable to any of
  them becoming unavailable.  Move as many as possible to Suggests and
  use conditionally.

R/fct_tableau_bord_ESU.R

@@ -96,9 +96,13 @@ cadre_seqeau_fct <- function(tableau_bord_ESU_SelectSage, seqeau_filter, tableau
 #'
 #' @export
 #' @importFrom leafem addHomeButton
-#' @importFrom leaflet leaflet addProviderTiles addPolygons highlightOptions addCircleMarkers fitBounds addLegend
+#' @importFrom leaflet leaflet addProviderTiles addPolygons colorFactor highlightOptions addCircleMarkers fitBounds addLegend
 #' @importFrom leaflet.extras addFullscreenControl
 carte_seqeau_fct <- function(tableau_bord_ESU_SelectSage, seqeau_filter, tableau_bord_ESU_sage, cadre_seqeau){
+  factpal <- leaflet::colorFactor(
+    palette = c("blue", "green", "yellow", "orange", "red"),
+    seqeau_esu$classe_qualite_station
+    )
   if (tableau_bord_ESU_SelectSage == "Tous") {
     leaflet::leaflet(
       seqeau_filter,

dev/02_dev.R

@@ -27,7 +27,6 @@ golem::add_module(name = "selection_explorer_mesures", with_test = FALSE)
 golem::add_module(name = "visualisation_explorer_mesures", with_test = FALSE)
 golem::add_module(name = "selection_tableau_bord_ESU", with_test = FALSE)
 golem::add_module(name = "visualisation_tableau_bord_ESU", with_test = FALSE)
-
 golem::add_module(name = "consulter_molecules", with_test = FALSE)
 
 ## Add helper functions ----