Nothing
test_that("summarise_recency works", {
expect_identical(
{
rtri_recent <- rtri_recent(recency_example)
summarise_recency(rtri_recent)
},
janitor::adorn_totals(dplyr::count(rtri_recent(recency_example), ip, facility_state, name = "rtri_recent"))
)
})
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.