Nothing
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")
})
})
}
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.