test_that("todo vdiffr these plots", {
x <- read_sf(system.file("shape/nc.shp", package="sf"))
plot(x)
text(x) ## we get AREA
plot(x)
text(x["NAME"])
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.