context("Testing word_imp.R function")
#create new fake text document
#small doc
set.seed(1000)
doc1 <- data.frame(text=sample(c("I love research because it is good!",
"I do not like research, it is time-consuming",
"I have no opinion on it"), size=7,
replace = TRUE, prob = c(0.5, 0.3, 0.2)))
#append one more column
doc1_ <- data.frame(doc1, ID=seq.int(nrow(doc1)))
#large doc
set.seed(1000)
doc2 <- data.frame(text=sample(c("I love research because it is good!",
"I do not like research, it is time-consuming",
"I have no opinion on it"), size=50,
replace = TRUE, prob = c(0.5, 0.3, 0.2)))
#append one more column
doc2_ <- data.frame(doc2, ID=seq.int(nrow(doc2)))
#checking that error msg outputs are correct
test_that("print out correct error msgs", {
expect_error(word_imp(doc1_,
prints_text(paste("Length of document is too small!!",
"The minimum allowable length is 20!",
"Process terminated!!", sep=" "))))
})
#run analysis
output1 <- word_imp(doc2_)
test_that('check that output is complete', {
#check completeness of result..
expect_equal(length(output1), 3)
expect_equal(length(output1$metric), 1)
expect_equal(ncol(output1$table), 2)
})
test_that('output type are correct', {
expect_is(output1, 'list')
expect_is(output1$table, 'data.frame')
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.