test_that("TIFF tag error handling works", {
tmp_corrupt <- tempfile(fileext = ".tif")
writeLines("not a tiff file", tmp_corrupt)
suppressWarnings(expect_error(read_tif(tmp_corrupt, msg = FALSE)))
fs::file_delete(tmp_corrupt)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.