tests/testthat/test-fbind.R

In frandepy2/PruebaPaqueteR: Un paquete de Ejemplo para aprender a crear Paquetes

test_that("fbind() une factores o caracteres", {
  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)
})