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'))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.