tests/testthat/test-hexbin.R

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

test_that("hexbin", {
  n <- 1000
  df <- data.frame(lat = rnorm(n, 42.0285, .01),
                   lng = rnorm(n, -93.65, .01))

  m <- leaflet()  %>%
    addTiles() %>%
    addHexbin(lng = df$lng, lat = df$lat,
              options = hexbinOptions(
                tooltip = FALSE,
                colorRange = c("red", "yellow", "blue"),
                radiusRange = c(10, 20)
              ))

  expect_is(m, "leaflet")

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

  m <- m %>% clearHexbin()
  expect_equal(m$x$calls[[length(m$x$calls)]]$method,
               "clearHexbin")

  ## Show/Hide ###################
  m <- m %>% showHexbin()
  expect_equal(m$x$calls[[length(m$x$calls)]]$method,
               "showHexbin")
  m <- m %>% hideHexbin()
  expect_equal(m$x$calls[[length(m$x$calls)]]$method,
               "hideHexbin")

  ## Update Hexbin ###################
  df1 <- data.frame(lat = rnorm(n, 42.0285, .01),
                   lng = rnorm(n, -93.65, .01))
  m <- m %>% updateHexbin(data = df1,
                          lng = ~lng, lat = ~lat)
  expect_equal(m$x$calls[[length(m$x$calls)]]$method,
               "updateHexbin")
  expect_identical(m$x$calls[[length(m$x$calls)]]$args[[1]][,"lng"],
                   df1$lng)
  expect_identical(m$x$calls[[length(m$x$calls)]]$args[[1]][,"lat"],
                   df1$lat)

  m <- m %>% updateHexbin(colorRange = c("red", "yellow", "blue"))
  expect_equal(m$x$calls[[length(m$x$calls)]]$method,
               "updateHexbin")
  expect_identical(m$x$calls[[length(m$x$calls)]]$args[[2]],
                   c("red", "yellow", "blue"))

})