context("read HB or WiWo files")
test_that("readHBWiWo", {
HBWiWo2 <- readHBWiWo(path=paste0(getwd(),"/data/HBWiWo"))
text2 <- readHBWiWo(path=paste0(getwd(),"/data/HBWiWo"), do.meta = FALSE, do.text = TRUE)
meta2 <- readHBWiWo(path=paste0(getwd(),"/data/HBWiWo"), do.meta = TRUE, do.text = FALSE)
load("data/HBWiWo_compare.RData")
expect_equal(HBWiWo2, HBWiWo)
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.