test_that("icon deduping works", {
icons <- c("leaf-green.png", "leaf-red.png")
m <-
leaflet(data = data.frame(color = sample.int(2, 30, replace = TRUE))) %>%
addMarkers(1:30, 30:1, icon = icons(
iconUrl = ~icons[color],
shadowUrl = c("leaf-shadow.png"),
iconWidth = 38, iconHeight = 95, iconAnchorX = 22, iconAnchorY = 94,
shadowWidth = 50, shadowHeight = 64, shadowAnchorX = 4, shadowAnchorY = 62
))
expect_equal(
length(m$x$calls[[1]]$args[[3]]$iconUrl$data),
2
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.