Nothing
test_that("old stopwords are the same as the new", {
load("../data/data_char_stopwords.rda")
stopwords_old <- function(kind = "english", swdata) {
if (!(kind %in% names(swdata)))
stop(paste0("\"", kind, "\" is not a recognized stopword list name."))
swdata[[kind]]
}
expect_equal(
stopwords_old("english", data_char_stopwords),
stopwords("english", source = "snowball")
)
expect_equal(
stopwords_old("SMART", data_char_stopwords),
stopwords("english", source = "smart")
)
})
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.