tests/testthat/test-fbind.R

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)
})
bcadenato/foofactors documentation built on Oct. 4, 2020, 12:14 a.m.