context("xkey")
require(fql)
test_that("keying works", {
x <- data.frame(name=c("a", "b"), value=2:1, row.names=c("1", "2"))
y <- x %>% xkey("a")
expect_equal(attributes(y)$key, "a")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.