context("partitionText: Expecting correct behavior")
test_that("partitionText: Simple test I", {
expect_equal(
partitionText("Hello World."),
list("Hello", "World", "."))
})
test_that("partitionText: Simple test I", {
expect_error(partitionText(2))
})
# TODO: tests for getNGram
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.