Nothing
context("as.keyvalue.default")
test_that("misc", {
expect_error(as.keyvalue.default(1),
"All elements of vector 'x' must be named!")
expect_is(as.keyvalue.default(1, "hej"), "keyvalue")
expect_error(as.keyvalue.default(1:10, letters),
"arguments imply differing number of rows")
expect_error(as.keyvalue(1:10), "All elements of vector 'x' must be named!")
})
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.