test_that("make_manifest reproduces the same tiles", {
# on GitHub, this test fails to find temp files used in the middle of
# raster_to_raw on windows and mac devices
#
# this does not occur on the windows machine I have access to, though I am
# yet to test it on a mac. As such, I believe this may be an issue with the
# GH environment rather than using magick to open a tempfile.
skip_on_os(c("windows", "mac"))
skip_on_cran()
outputs <- make_manifest(
"testdata/3DEP_gr.tif",
"testdata/NAIPPlus_gr.tif",
output_prefix = tempfile(),
manifest_path = tempfile(),
importer_path = NULL
)
outputs_table <- read.table(outputs, sep = "\t")
expect_equal(
ncol(outputs_table),
ncol(read.table("testdata/example.manifest", sep = "\t"))
)
expect_equal(
png::readPNG(outputs_table$V8),
png::readPNG("testdata/manifest_ort.png")
)
})
test_that("prep_table warns when expected", {
expect_warning(
prep_table("testdata/3DEP_gr.tif",
10,
"import",
type = "elevation"
),
"Side lengths must be equal"
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.