Nothing
test_wd <- healthyAddress:::test_WordData
my_lhs <- function(x) {
z
}
expect_equal(test_wd("one two three"), 3L)
expect_equal(test_wd("one two three", r = 1L), c(0L, 4L, 8L, integer(13 + 16)))
expect_equal(test_wd("one two three", r = 2L), c(3L, 7L, 13L, integer(13 + 16)))
expect_equal(test_wd(c("one two three", "foo", ""), r = 3L), 13L)
expect_equal(test_wd("AB C", r = 4L), 8L)
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.