tests/testthat/test-mapkeyicon.R

In leaflet.extras2: Extra Functionality for 'leaflet' Package

test_that("mapkey", {
  m <- leaflet() %>%
    addMapkeyMarkers(
      data = breweries91,
      icon = makeMapkeyIcon(
        icon = "mapkey",
        iconSize = 30,
        boxShadow = FALSE,
        background = "transparent"
      ),
      group = "mapkey",
      label = ~state, popup = ~village
    )
  expect_is(m, "leaflet")

  deps <- findDependencies(m)
  expect_equal(deps[[length(deps)]]$name, "lfx-mapkeyicon")

  iconSet <- mapkeyIconList(
    red = makeMapkeyIcon(
      icon = "boundary_stone",
      color = "#725139",
      background = "#f2c357",
      iconSize = 30,
      boxShadow = FALSE
    ),
    blue = makeMapkeyIcon(
      icon = "traffic_signal",
      color = "#0000ff",
      iconSize = 12,
      boxShadow = FALSE,
      background = "transparent"
    ),
    buddha = makeMapkeyIcon(
      icon = "buddhism",
      color = "red",
      iconSize = 12,
      boxShadow = FALSE,
      background = "transparent"
    )
  )
  expect_is(iconSet, "leaflet_mapkey_icon_set")

  m <- leaflet() %>%
    addMapkeyMarkers(
      data = breweries91, icon = iconSet,
      group = "mapkey",
      label = ~state, popup = ~village
    )
  expect_is(m, "leaflet")

  m <- leaflet() %>%
    addMapkeyMarkers(
      data = breweries91, icon = iconSet,
      group = "mapkey",
      clusterOptions = markerClusterOptions(),
      label = ~state, popup = ~village
    )
  expect_is(m, "leaflet")
  deps <- findDependencies(m)
  expect_equal(deps[[length(deps) - 1]]$name, "lfx-mapkeyicon")
  expect_equal(deps[[length(deps)]]$name, "leaflet-markercluster")

  m <- mapkeyIcons()
  expect_is(m, "list")

  m <- leaflet() %>%
    addMapkeyMarkers(
      data = breweries91,
      icon = m
    )
  expect_is(m, "leaflet")


  cities <- structure(
    list(
      City = structure(1:6, .Label = c(
        "Boston", "Hartford", "New York City",
        "Philadelphia", "Pittsburgh",
        "Providence"
      ), class = "factor"),
      Lat = c(42.3601, 41.7627, 40.7127, 39.95, 40.4397, 41.8236),
      Long = c(-71.0589, -72.6743, -74.0059, -75.1667, -79.9764, -71.4222),
      Pop = c(645966L, 125017L, 8406000L, 1553000L, 305841L, 177994L)
    ),
    class = "data.frame", row.names = c(NA, -6L)
  )

  icon.pop <- mapkeyIcons(
    color = ifelse(cities$Pop < 500000, "blue", "red"),
    iconSize = ifelse(cities$Pop < 500000, 20, 50)
  )
  m <- leaflet(cities) %>%
    addTiles() %>%
    addMapkeyMarkers(
      lng = ~Long, lat = ~Lat,
      label = ~City,
      icon = icon.pop
    )
  expect_is(m, "leaflet")

  cities$PopCat <- "blue"
  cities[cities$Pop > 500000, ]$PopCat <- "red"
  iconSet <- mapkeyIconList(
    blue = makeMapkeyIcon(
      icon = "traffic_signal",
      color = "#0000ff",
      iconSize = 12,
      boxShadow = FALSE,
      background = "transparent"
    ),
    red = makeMapkeyIcon(
      icon = "buddhism",
      color = "red",
      iconSize = 12,
      boxShadow = FALSE,
      background = "transparent"
    )
  )
  m <- leaflet(cities) %>%
    addTiles() %>%
    addMapkeyMarkers(
      lng = ~Long, lat = ~Lat,
      label = ~City,
      labelOptions = rep(labelOptions(noHide = TRUE), nrow(cities)),
      icon = ~ iconSet[PopCat]
    )
  expect_is(m, "leaflet")

  m <- leaflet(cities) %>%
    addTiles() %>%
    addMapkeyMarkers(
      lng = ~Long, lat = ~Lat,
      label = ~City,
      labelOptions = rep(labelOptions(noHide = TRUE), nrow(cities)),
      icon = ~ iconSet[as.factor(PopCat)]
    )


  m <- leaflet(cities) %>%
    addTiles() %>%
    addMapkeyMarkers(
      lng = ~Long, lat = ~Lat,
      label = ~City,
      clusterOptions = markerClusterOptions(),
      icon = ~ iconSet[PopCat]
    )
  expect_is(m, "leaflet")

  expect_error(
    leaflet(cities) %>%
      addTiles() %>%
      addMapkeyMarkers(
        lng = ~Long, lat = ~Lat, label = ~City,
        icon = ~ iconSet[list()]
      )
  )
})

test_that("mapkey-error", {
  expect_error(
    mapkeyIconList(
      red = list(
        icon = "boundary_stone",
        color = "#725139",
        background = "#f2c357",
        iconSize = 30,
        boxShadow = FALSE
      )
    )
  )
})