tests/testthat/test-arrowhead.R

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

test_that("arrowhead", {
  m <- leaflet() %>%
    addArrowhead(data = atlStorms2005, group = "groupname")
  expect_is(m, "leaflet")

  deps <- findDependencies(m)
  expect_equal(deps[[length(deps)]]$name, "lfx-arrowhead")
  expect_equal(m$x$calls[[length(m$x$calls)]]$method,
               "addArrowhead")
  expect_true(all(names(m$x$calls[[1]]$args[[10]]) %in%
                    c("yawn","size","frequency","proportionalToTotal")))

  m <- leaflet() %>% clearArrowhead("groupname")
  m$x$calls[[length(m$x$calls)]]$method == "clearArrowhead"
  m$x$calls[[length(m$x$calls)]]$args[[1]] == "groupname"

  m <- leaflet() %>% removeArrowhead(layerId = "layerid")
  m$x$calls[[length(m$x$calls)]]$method == "removeArrowhead"
  m$x$calls[[length(m$x$calls)]]$args[[1]] == "layerid"

  expect_error(leaflet() %>% clearArrowhead())
  expect_error(leaflet() %>% removeArrowhead())

})