Nothing
context("names")
test_that("", {
x <- c("---", b=2, c=3)
y <- c(c=3)
out <- .setdiffWithNames(x, y)
expect_identical(out, c("---", b = "2"))
})
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.