Nothing
context("read_risico_binary")
test_that("read_risico_binary works", {
loaded_data <- read_risico_binary(system.file("extdata",
"RISICO_binary.bin",
package = "caliver"))
# Set missing crs
raster::crs(loaded_data) <- "+proj=longlat +datum=WGS84 +no_defs"
expect_equal(dim(loaded_data), dim(r_risico))
})
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.