Nothing
test_that("nop works", {
expect_equal(nop() * nop(), nop())
expect_equal(nop() * geom_line(), geom_line())
expect_equal(geom_line() * nop(), geom_line())
expect_equal(geom_line() |> nop(), geom_line())
expect_equal(nop() * (nop() + nop()), nop() + nop())
expect_equal(nop() * 2, nop() + nop())
expect_equal((adjust() + blend()) * nop(), adjust() + blend())
})
# printing ----------------------------------------------------------------
test_that("format works", {
expect_equal(format(nop()), "1")
})
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.