context("handles no patches")
test_that("get_patches handles case where there are no patches", {
set.seed(187)
mat <- matrix(sample(1:2, 81, replace = TRUE), nrow = 9, ncol = 9)
expect_false(any(get_patches(img = mat)$df$G_bin != 0))
expect_true(get_patches(img = mat)$pstats$hot_area == 0)
expect_true(get_patches(img = mat)$pstats$cold_area == 0)
})
test_that("plot_patches handles case where there are no patches", {
set.seed(187)
mat <- matrix(sample(1:2, 81, replace = TRUE), nrow = 9, ncol = 9)
results <- get_patches(mat)
vdiffr::expect_doppelganger("raster plotted, no patches",
plot_patches(df = results$df,
patches = results$patches,
plot_distribution = FALSE))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.