context("get")
test_that("gets", {
skip("needs internet and authentication")
timesheet <- pts_get_timesheet(from = as.Date("2018-12-18"), to = as.Date("2019-03-27"))
timesheet <- timesheet[!grepl("^R", timesheet$Member),]
expect_identical(timesheet, poistimesheets::timesheet)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.