Nothing
test_that('grid amount correct', {
lga_centroids <- sugarbag::create_centroids(sugarbag::tas_lga, "lga_code_2016")
lga_grid <- create_grid(lga_centroids, hex_size = 0.2, buffer_dist = 1.2, verbose = FALSE)
sa2_centroids <- sugarbag::create_centroids(sugarbag::tas_sa2, "sa2_name_2016")
sa2_grid <- create_grid(sa2_centroids, hex_size = 0.2, buffer_dist = 1.2, verbose = FALSE)
# check projection returned correct latitude and longitudes
# will need to be changed when extended for northings and eastings
expect_success(expect_length(lga_grid$hex_long, 451))
expect_success(expect_length(sa2_grid$hex_long, 477))
})
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.