test_that("Example file is loaded correctly", {
# Define the example file with known structure
df <- getSummary(fl[[1]])
expect_equal(names(df), c("Status", "Category", "Filename"))
expect_equal(nrow(df), 12)
})
closeAllConnections()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.