test_that("download shape files", {
data(austria)
url <- "https://geodata.ucdavis.edu/gadm/gadm3.6/shp/gadm36_AUT_shp.zip"
aut <- get_shapes(url=url, level=0)
aut <- thin(aut, .001)
expect_equal(aut, austria) # fails right now because the versions are different
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.