context("grab_text.R")
test_that( "params", {
pdffile <- system.file("extdata", "DyerNason2004.pdf", package="footprint")
expect_that( nchar(pdffile)>1, is_true() )
ret <- grab_text(pdffile)
expect_that( length(ret) > 0 , is_true() )
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.