Nothing
test_that("tiles works", {
skip_on_cran()
skip_if(is.null(get_api_key()))
expect_message(rgb <- read_tiles(cbind(147, -42), buffer = 5000, max_tiles = 1, type = "mapbox.terrain-rgb"))
expect_silent(rng <- range(values(unpack_rgb(rgb))))
expect_true(rng[1] < 0)
expect_true(rng[2] > 1000)
expect_message(get_tiles_zoom(zoom = 1))
expect_message(get_tiles_dim(dim = c(256, 256)))
expect_message(get_tiles_buffer(cbind(147, -42), 2000))
expect_s3_class(tiles <- ceramic_tiles(zoom = 1), "tbl_df")
expect_silent(plot_tiles(tiles, add_coast = F))
})
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.