# NOT RUN {
data("donnees_monoloc")
data("depm")
# Ronds proportionnels
map <- leaflet_ronds(data = donnees_monoloc, fondMaille = depm, idData = "COD_DEP",
varVolume = "POP_2015")
# }
# NOT RUN {
map
# }
# NOT RUN {
rayon_ronds(map)
# [1] 39944.67
# Ronds proportionnels
map <- leaflet_ronds(data = donnees_monoloc, fondMaille = depm, idData = "COD_DEP",
varVolume = "POP_2015", rayonRond = 30000)
# }
# NOT RUN {
map
# }
# NOT RUN {
rayon_ronds(map)
# [1] 30000
# }
Run the code above in your browser using DataLab