tests/testthat/test_fbind.R

In BattaLiu/HW8JiayiLiu: Make factors less annoying

context("Binding Factors")

test_that("fbind binds factors or (or character)",{
  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))))

})