context("PPTX notes")
test_that("The notes are ordered", {
ex_file = system.file("extdata", "example.pptx", package = "didactr")
res = ariExtra::pptx_notes(ex_file)
ans = c("notesSlide1.xml", "notesSlide2.xml")
expect_identical(names(res), ans)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.