tests/testthat/test-function-setMatrixColumns.R

test_that("setMatrixColumns() works", {

  x <- createMatrix(c("a", "b", "c"))  
  
  y <- setMatrixColumns(x, list(c = 1:3))

  expect_warning(setMatrixColumns(x, list(r = 1)))
  
  expect_equal(unname(y[, "c"]), 1:3)
})
KWB-R/kwb.utils documentation built on April 1, 2024, 7:12 a.m.