inst/tinytest/test_n_words.R

n_words <- healthyAddress:::n_words

expect_identical(n_words(character(0)), integer(0))
expect_equal(n_words(""), 0)
expect_equal(n_words(c(" ", "a", "ab cd", "DF/AB X Y Z")), c(0, 1, 2, 4))

Try the healthyAddress package in your browser

Any scripts or data that you put into this service are public.

healthyAddress documentation built on April 12, 2025, 1:28 a.m.