Nothing
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'))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.