context("Stop words")
suppressPackageStartupMessages(library(dplyr))
test_that("get_stopwords works for multiple languages", {
skip_if_not_installed("stopwords")
de <- get_stopwords("de")
ru <- get_stopwords("ru")
expect_is(de, "tbl_df")
expect_is(ru, "tbl_df")
expect_gt(nrow(de), nrow(ru))
expect_equal(unique(de$lexicon), "snowball")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.