library(testthat)
library(data.table)
test_that("dt [ method ok", {
data.table(group=1:2, foo="bar")[, {
expect_identical(foo, "bar")
}, by=group]
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.