Nothing
expect_is_r2pptx_slide_list <- function(x) expect_true(is(x, "R2PptxSlideList"))
describe("R2PptxSlideList", {
it("can be initialized", {
x <- new("R2PptxSlideList")
expect_is_r2pptx_slide_list(x)
})
it("succeeds when each element is a slide", {
slide <- new_slide(layout = "test")
x <- new("R2PptxSlideList", slides = list(slide))
expect_is_r2pptx_slide_list(x)
})
it("fails when an element is not a slide", {
expect_error(new("R2PptxSlideList", slides = list("x")))
})
})
describe("show R2PptxSlide", {
it("prints as expected", {
slide <- new_slide(layout = "test", elements = list(new_element("x", "x")))
msg <- capture.output(print(slide))
expect_equal(
msg,
c("Slide with layout `test` and 1 elements:", "- character")
)
})
})
describe("asSlideList", {
it("works when input is a list of slides", {
slide <- new_slide(layout = "test")
x <- asSlideList(list(slide, slide))
expect_is_r2pptx_slide_list(x)
})
it("works when input is a slide", {
slide <- new_slide(layout = "test")
x <- asSlideList(slide)
expect_is_r2pptx_slide_list(x)
})
})
describe("append_slide", {
it("works for two slides", {
slide <- new_slide(layout = "test")
x <- slide + slide
expect_is_r2pptx_slide_list(x)
})
it("works for a slidelist and a slide", {
slide <- new_slide(layout = "test")
slidelist <- asSlideList(slide)
x <- slidelist + slide
expect_is_r2pptx_slide_list(x)
})
it("works for a slide and a slidelist", {
slide <- new_slide(layout = "test")
slidelist <- asSlideList(slide)
x <- slide + slidelist
expect_is_r2pptx_slide_list(x)
})
it("works for a slidelist and a slidelist", {
slide <- new_slide(layout = "test")
slidelist <- asSlideList(slide)
x <- slidelist + slidelist
expect_is_r2pptx_slide_list(x)
})
})
describe("new_slide", {
it("works when input elements is an element", {
e <- new_element(key = "test", value = "test")
x <- new_slide(layout = "test", e)
expect_true(is(x, "R2PptxSlide"))
expect_equal(x@elements, list(e))
})
it("works when input element sis a list of elements", {
e <- new_element(key = "test", value = "test")
x <- new_slide(layout = "test", list(e))
expect_true(is(x, "R2PptxSlide"))
expect_equal(x@elements, list(e))
})
it("fails when input elements is other than expected", {
expect_error(new_slide("test", "lol"),
regexp = "should be or extend class \"list\"")
})
it("fails when layout is missing", {
expect_error(
new_slide(),
regexp = "`layout` was missing. See `officer::plot_layout_properties\\(\\)` for key options"
)
})
})
describe("new_slidelist", {
it("works with empty call", {
x <- new_slidelist()
expect_is_r2pptx_slide_list(x)
})
it("works with list of slides", {
slides_list <- list()
for (i in 1:2) {
slides_list[[i]] <- new_slide("test")
}
x <- new_slidelist(slides_list)
expect_is_r2pptx_slide_list(x)
})
it("works with a slide", {
x <- new_slidelist(new_slide("test"))
expect_is_r2pptx_slide_list(x)
})
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.