test_that("unzipping works", {
docs <- unzip_export(folder = file.path("demo-project"), overwrite = T, recursive = T)
expect_true(grepl("demo.xmi", docs))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.