tests/testthat/test-flows.R

In rte-antares-rpackage/leaflet.minicharts: Mini Charts for Interactive Maps

context("flows")

# Helper function
expect_invoke_js_method <- function(method, postProcess = I) {
  map <- leaflet::leaflet() %>%
    addFlows(0, 0, 1, 1, layerId = "a") %>%
    postProcess()

  expect_true(all(method %in% map$jsmethods))
}

with_mock(
  `leaflet::invokeMethod` = function(map, data, method, ...) {
    map$jsargs = list(...)
    map$jsmethods <- c(map$jsmethods, method)
    map
  },
  {

    test_that("One can add, update, clear and remove flows", {
      expect_invoke_js_method("addFlows")
      expect_invoke_js_method("updateFlows", function(map) {
        updateFlows(map, layerId = "a", flow = 0.5)
      })
      expect_invoke_js_method("clearFlows", clearFlows)
      expect_invoke_js_method("removeFlows", function(map) {
        removeFlows(map, "a")
      })
    })

  }
)