context("Calculations correct")
data <- sum_rows(dat$ring_width[[1]])
test_that("test sum_rows", {
expect_equal(data[30], sum(dat$ring_width[[1]][1:30]))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.