context("setAttribute")
test_that("setAttribute", {
x = 1:9
x = setAttribute(x, "foo", "bar")
x = setAttribute(x, "dim", c(3,3))
expect_equal(attr(x, "foo"), "bar")
expect_equal(nrow(x), 3)
expect_equal(ncol(x), 3)
})
Generated by dwww version 1.15 on Thu May 23 22:37:10 CEST 2024.