Nothing
library(checkmate)
library(testthat)
context("gs_tiles")
test_that("output is valid geometry", {
aWindow <- data.frame(x = c(-180, 180),
y = c(-60, 80))
# squared tiles
output <- gs_tiles(anchor = aWindow, width = 10)
expect_class(output, classes = "geom")
expect_true(output@type == "polygon")
expect_data_frame(output@point, any.missing = FALSE, nrows = 2775, ncols = 3)
# hexagonal tiles
output <- gs_tiles(anchor = aWindow, width = 10, pattern = "hexagonal")
expect_class(output, classes = "geom")
expect_true(output@type == "polygon")
expect_data_frame(output@point, any.missing = FALSE, nrows = 4459, ncols = 3)
# only censtroids
output <- gs_tiles(anchor = aWindow, width = 10, centroids = TRUE)
expect_class(output, classes = "geom")
expect_true(output@type == "point")
expect_data_frame(output@point, any.missing = FALSE, nrows = 504, ncols = 3)
})
test_that("Error if arguments have wrong value", {
aWindow <- data.frame(x = c(-180, 180),
y = c(-60, 80))
expect_error(gs_tiles(anchor = "bla"))
expect_error(gs_tiles(anchor = "bla"))
expect_error(gs_tiles(anchor = aWindow, width = "bla"))
expect_error(gs_tiles(anchor = window, width = 10, pattern = "bla"))
expect_error(gs_tiles(anchor = window, width = 10, pattern = "triangular"))
expect_error(gs_tiles(anchor = window, width = 10, rotation = "bla"))
expect_error(gs_tiles(anchor = window, width = 10, centroids = "bla"))
})
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.