tests/testthat/test-trans.R

test_that("closure(reduce(random()))==closure",{
  random_tally(10,0.3)->a
  arrange(a)->a
  as.matrix(a,reduction=FALSE,closure=FALSE)->a
  reduce(a)->ra
  closure(a)->ca
  expect_identical(ca,closure(ra))
})

Try the toporanga package in your browser

Any scripts or data that you put into this service are public.

toporanga documentation built on Aug. 8, 2025, 6:15 p.m.