tests/testthat/test-function-safeColumnBind.R

test_that("safeColumnBind() works", {

  x <- data.frame(a = 1:3, b = rnorm(3))

  expect_identical(safeColumnBind(NULL, x), x)
  
  expect_identical(safeColumnBind(x, x), cbind(x, x))
})
KWB-R/kwb.utils documentation built on April 1, 2024, 7:12 a.m.