Nothing
test_that("history", {
m <- leaflet() %>%
addTiles(group = "base") %>%
fitBounds(-72, 40, -70, 43) %>%
addHistory()
expect_is(m, "leaflet")
deps <- findDependencies(m)
expect_equal(deps[[length(deps) - 1]]$name, "font-awesome")
expect_equal(deps[[length(deps)]]$name, "lfx-history")
m <- m %>%
goBackHistory()
expect_equal(m$x$calls[[length(m$x$calls)]]$method,
"goBackHistory")
m <- m %>% goForwardHistory()
expect_equal(m$x$calls[[length(m$x$calls)]]$method,
"goForwardHistory")
m <- m %>% clearFuture()
expect_equal(m$x$calls[[length(m$x$calls)]]$method,
"clearFuture")
m <- m %>% clearHistory()
expect_equal(m$x$calls[[length(m$x$calls)]]$method,
"clearHistory")
})
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.