tar_test("truncate_character()", {
x <- c(
"not so very long",
"very very very very very very long",
NA_character_,
"short"
)
expect_equal(truncate_character(x, 1e3L), x)
out <- truncate_character(x, 4L)
expect_equal(out, c("n...", "v...", NA_character_, "s..."))
out <- truncate_character(x, 5L)
expect_equal(out, c("no...", "ve...", NA_character_, "short"))
out <- truncate_character(x, 7L)
expect_equal(out, c("not ...", "very...", NA_character_, "short"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.