tweet <- data.frame(status_id = c(1234, 5678),
text = c("This is a tweet. This is the second sentence.",
"This is another tweet"),
stringsAsFactors = FALSE)
expected_dimensions <- c(2L, 6L)
test_that("quantitative dimensions are expected", {
expect_equal(dim(feature_quantitative(tweet, status_id, text)),
expected_dimensions)
})
test_that("quantitative function doesn't return NAs", {
expect_equal(sum(is.na(feature_quantitative(tweet, status_id, text))),
0)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.