Nothing
context("test-cache")
test_that("caching is sensible", {
skip_on_cran()
skip_if(is.null(get_api_key()))
## this hits zoom 13 and should give 16 tiles
x <- get_tiles(cbind(0, 0), buffer = 5000, dimension = c(15, 16))
suppressWarnings(f <- ceramic_tiles(zoom = 13))
expect_s3_class(f, "tbl_df")
expect_true(nrow(f) > 15)
})
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.