Nothing
context("sentensize")
o <- sapply(c('', 'neonira wrote package \twyz.code.rdoc'), sentensize, USE.NAMES = FALSE)
test_that("sentensize", {
expect_length(o[1], 1L)
expect_equal(o[1], '')
expect_length(o[2], 1L)
expect_equal(o[2], 'Neonira wrote package wyz.code.rdoc.')
expect_equal(sentensize('a simple', ' question\t', punctuationCharacter_s_1 = '?'), "A simple question?")
})
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.