test_that("analisando se abre outro tipo de arquivo", {
no_spatial <- sf::read_sf(system.file("gpkg/nospatial.gpkg", package = "sf"))
expect_error(view_connections(nbr = no_spatial))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.