Nothing
context("file extensions")
test_that("pptx extension must be pptx", {
doc <- pptx( )
doc <- addSlide( doc, "Title and Content" )
res <- try( writeDoc(doc, "doc_1.pptx"), silent = TRUE )
expect_null( res )
doc <- pptx( )
doc <- addSlide( doc, "Title and Content" )
res <- try( writeDoc(doc, "doc_1.ppt"), silent = TRUE )
expect_is( res, "try-error" )
})
test_that("docx extension must be docx", {
doc <- docx( )
res <- try( writeDoc(doc, "doc_2.docx"), silent = TRUE )
expect_null( res )
doc <- docx( )
res <- try( writeDoc(doc, "doc_2.doc"), silent = TRUE )
expect_is( res, "try-error" )
})
unlink(list.files(pattern = "^doc_"), force = TRUE, recursive = TRUE)
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.