# NOT RUN {
data("donnees_biloc")
data("regm")
# Fleches joignantes
map <- leaflet_joignantes(data = donnees_biloc, fondMaille = regm, typeMaille = "REG",
idDataDepart = "REG_DEPART", idDataArrivee = "REG_ARRIVEE",
varFlux = "MIGR", filtreDist = 1000, filtreMajeurs = 3)
# }
# NOT RUN {
map
# }
# NOT RUN {
largeur_fleche(map)
# [1] 100
# Fleches joignantes
map <- leaflet_joignantes(data = donnees_biloc, fondMaille = regm, typeMaille = "REG",
idDataDepart = "REG_DEPART", idDataArrivee = "REG_ARRIVEE",
varFlux = "MIGR", largeurFlecheMax = 200, filtreDist = 1000,
filtreMajeurs = 3)
# }
# NOT RUN {
map
# }
# NOT RUN {
largeur_fleche(map)
# [1] 200
# }
Run the code above in your browser using DataLab