Nothing
test_that("%||%", {
expect_equal("a" %||% "b", "a")
expect_equal(list() %||% "b", "b")
expect_equal(NULL %||% "b", "b")
})
test_that("%|||%", {
expect_equal("a" %|||% "b", "a")
expect_equal(list() %|||% "b", list())
expect_equal(NULL %|||% "b", "b")
})
test_that("if_any()", {
expect_equal(if_any(TRUE, "a", "b"), "a")
expect_equal(if_any(FALSE, "a", "b"), "b")
})
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.