tests/testthat/test_fbind.R

In etesdahl/fooFactors: Fixing Those Very Pesky Factor Habits

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)
})