Nothing
context("geojson")
test_that("geojson layer works", {
m <- google_map(key = 'abc') %>%
add_geojson(data = '{}')
expect_true(
sum(class(m) == c("google_map", "htmlwidget")) == 2
)
})
test_that("clear geojson works", {
m <- google_map(key = 'abc') %>%
add_geojson(data = '{}') %>%
clear_geojson()
expect_true(
m$x$calls[[2]]$functions == "clear_geojson"
)
})
test_that("udpate geojson works", {
m <- google_map(key = 'abc') %>%
add_geojson(data = '{}') %>%
update_geojson(style = '{}')
expect_true(
m$x$calls[[2]]$functions == "update_geojson"
)
})
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.