tests/testthat/test-fbind.R

context("binding factors")

test_that("fbind() binds factors", {
   x <- factor(c("a", "b"))
   y <- factor(c("c", "d"))
   z <- factor(c("a", "b", "c", "d"))

   expect_identical(fbind(x,y), z)
})
lex-files/foofactors documentation built on May 7, 2019, 8:22 a.m.