context("Testing utils")
test_that("list.parse", {
result <- list(
list(4, 2),
list(4, 10),
list(7, 4),
list(7, 22),
list(8, 16),
list(9, 10)
)
expect_equal(list_parse2(head(cars)), result)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.