context("read Nexis files")
test_that("readNexis", {
Nexis2 <- readNexis(path = paste0(getwd(),"/data/Nexis"))
text2 <- readNexis(path = paste0(getwd(),"/data/Nexis"), do.meta = FALSE)
meta2 <- readNexis(path = paste0(getwd(),"/data/Nexis"), do.text = FALSE)
load("data/Nexis_compare.RData")
expect_equal(Nexis2, Nexis)
expect_equal(text2, text)
expect_equal(meta2, meta)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.