test_that("toFactor() works", {
x <- c("b", "c", "a")
y <- toFactor(x)
expect_identical(levels(y), x)
expect_identical(toFactor(y), y)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.