Nothing
library(polmineR)
testthat::context("use")
test_that(
"check return values of use()",
{
retval <- use("abcdefg", verbose = FALSE)
expect_false(retval)
retval <- use("testthat", verbose = FALSE)
expect_false(retval)
retval <- use("polmineR", corpus = "REUTERS", verbose = FALSE)
expect_false(retval)
retval <- use("polmineR", corpus = "GERMAPARLMINI", verbose = FALSE)
expect_true(retval)
expect_true("GERMAPARLMINI" %in% RcppCWB::cqp_list_corpora())
}
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.