tests/testthat/test_fbind.R

In gjahesh/foofactors: Make Factors less annoying

test_that("fbind binds factors(or characters)",{
  a <- iris$Species[c(1, 51, 101)]
  b <- PlantGrowth$group[c(1, 11, 21)]
  res <- fbind(a,b)
  expect_identical(res,
                   factor(c(levels(iris$Species),
                            levels(PlantGrowth$group))))
})