Nothing
test_that("Check reset method", {
testthat::expect_no_error(times <- test_reset())
expect_equal(row.names(times[[1]]), c("t1", "t2"))
expect_equal(row.names(times[[2]]), c("t3"))
})
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.