context("add")
test_that("add",{
timesheet <- pts_add_entry(poistimesheets::timesheet, as.Date("2011-05-22"))
expect_identical(check_timesheet(timesheet, nrow = nrow(poistimesheets::timesheet) + 1L), timesheet)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.