tests/testthat/test-pipes.R

test_that("simple pipe", {
  pr <- as.PowerRelation('ab > a > b')

  expect_equal(testRelation(pr, 'a'), list(pr, 'a'))
  expect_equal(pr %:% 'a', testRelation(pr, 'a'))
})

Try the socialranking package in your browser

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

socialranking documentation built on May 29, 2024, 2:10 a.m.