tests/testthat/test-spread.R

mkdt()
test_that("spread is working", {
  expect_identical(dcast(copy(dt),cyl + disp + hp + drat + wt + qsec + vs + am + carb ~ gear,value.var="mpg"),
                   spread(copy(dt),gear, mpg))
})
rm(dt)
kleu046/wr.data.table documentation built on April 25, 2022, 1:41 p.m.