context("Binding factors")
test_that("fbind binds factor (or character)", {
x <- c('a', 'b')
x_fact <- factor(x)
y <- c('c', 'd')
z <- factor(c('a', 'b', 'c', 'd'))
expect_identical(fbind(x, y), z)
expect_identical(fbind(x_fact, y), z)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.