Nothing
test_that("ensure_last_n_empty", {
expect_equal(
ensure_last_n_empty("x"),
c("x", "")
)
expect_equal(
ensure_last_n_empty(c("x", "")),
c("x", "")
)
expect_equal(
ensure_last_n_empty(c("1", "2")),
c("1", "2", "")
)
})
test_that("unsaved file is recognized from path", {
expect_true(is_unsaved_file(""))
})
test_that("inexistant levels in factor creation lead to error", {
expect_error(character_to_ordered(c("x", "Y"), levels = "x"))
})
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.