context("usedFactorLevels")
test_that("usedFactorLevels returns in fact the currently used factor levels", {
used.levels = letters[1:3]
all.levels = letters
x = factor(x = used.levels, levels = all.levels)
expect_equal(sort(usedFactorLevels(x)), used.levels)
x = factor(x = used.levels)
expect_equal(used.levels, levels(x))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.