data("regm")
data("fram")
# Fonds simples
map <- leaflet_fonds_simples(listFonds = list(fram, regm[regm$CODE == '93',]))
map <- set_fonds_simples(map, colRemplissageFonds = c("white","grey"),
colBordureFonds = c("grey","black"), transparenceFonds = c(1,0.6), epaisseurFonds = c(1,3))
# \donttest{
map
# }
Run the code above in your browser using DataLab