set_pop_up {oceanis}

Modify the pop_up of 'leaflet' map's analysis

Description

Modify the pop_up of 'leaflet' map's analysis.

Usage

set_pop_up(map, popup = NULL, popupRonds = NULL)

Arguments

map

objet leaflet.

popup

vecteur de caracteres (character). Peut etre du HTML pour mettre en forme le texte. Par defaut a NULL.

popupRonds

vecteur de caracteres (character). Peut etre du HTML pour mettre en forme le texte. Par defaut a NULL.

Details

Le nouveau texte pour le pop-up peut etre du contenu HTML. Par exemple : "<b> <font color=#2B3E50>Greater City of Paris</font> </b><br><b><font color=#2B3E50>PART : </font></b><b> <font color=#2B3E50>21,2</font></b>" Attention : conserver le meme ordre des pop-up dans le vecteur que celui des donnees pour que les valeurs correspondent bien a l'analyse.

Ne fonctionne que pour les ronds proportionnels, les analyses en classes et les typologies.

Pour supprimer les pop-up, laisser le parametre a NULL.

Value

Retourne un objet de type leaflet.

See Also

leaflet_ronds, leaflet_classes, leaflet_ronds_classes, leaflet_classes_ronds, leaflet_typo

Examples

data("depm")

data("donnees_monoloc")

# Ronds proportionnels sur une analyse en classes
map <- leaflet_ronds_classes(data = donnees_monoloc[donnees_monoloc$REG=="93",],
fondMaille = depm[depm$REG=="93",], idData = "COD_DEP", varVolume = "POP_2015",
varRatio = "VAR_AN_MOY", nbClasses = 4)

new_popup <- c(paste0("<b><font color=#2B3E50>Bouches-du-Rhone</font></b><br>",
"<font color=#2B3E50>Population 2015 : </font><font color=#2B3E50>2 016,6</font><br>",
"<font color=#2B3E50>Variation annuelle moyenne : </font><font color=#2B3E50>0,4</font>"),
paste0("<b><font color=#2B3E50>Alpes-Maritimes</font></b><br>",
"<font color=#2B3E50>Population 2015 : </font><font color=#2B3E50>1 082,4</font><br>",
"<font color=#2B3E50>Variation annuelle moyenne : </font><font color=#2B3E50>0,1</font>"),
paste0("<b><font color=#2B3E50>Var</font></b><br>",
"<font color=#2B3E50>Population 2015 : </font><font color=#2B3E50>1 048,7</font><br>",
"<font color=#2B3E50>Variation annuelle moyenne : </font><font color=#2B3E50>0,8</font>"),
paste0("<b><font color=#2B3E50>Vaucluse</font></b><br>",
"<font color=#2B3E50>Population 2015 : </font><font color=#2B3E50>  557,5</font><br>",
"<font color=#2B3E50>Variation annuelle moyenne : </font><font color=#2B3E50>0,6</font>"),
paste0("<b><font color=#2B3E50>Alpes-de-Haute-Provence</font></b><br>",
"<font color=#2B3E50>Population 2015 : </font><font color=#2B3E50>  161,8</font><br>",
"<font color=#2B3E50>Variation annuelle moyenne : </font><font color=#2B3E50>0,2</font>"),
paste0("<b><font color=#2B3E50>Hautes-Alpes</font></b><br>",
"<font color=#2B3E50>Population 2015 : </font><font color=#2B3E50>  140,9</font><br>",
"<font color=#2B3E50>Variation annuelle moyenne : </font><font color=#2B3E50>0,6</font>"))

map <- set_pop_up(map = map, popupRonds = new_popup)

 map