context("roundSafe")
test_that("roundSafe: skip rounding for characters",
{
x <- c(1.765, "hello", 8.3985, "world")
expect_equal(roundSafe(x, rep(2, 4)),
c("1.76", "hello", "8.4", "world"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.