Nothing
test_that("cut_r return a data.frame", {
expect_error(cut_r(2))
expect_error(cut_r(2.6))
expect_equal(nrow(cut_r(193)), 4)
# test NA
expect_error(cut_r(NA))
})
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.