Nothing
context("check-sorted")
test_that("sorted", {
expect_identical(check_sorted(1:2), 1:2)
expect_error(check_sorted(2:1), "2:1 must be sorted")
expect_identical(check_sorted(factor(1)), factor(1))
expect_identical(check_sorted(integer(0)), integer(0))
expect_identical(check_sorted(NA), NA)
expect_identical(check_sorted(c(NA, NA)), c(NA, NA))
expect_identical(check_sorted(factor(1:2)), factor(1:2))
expect_error(check_sorted(factor(2:1)), "factor[(]2:1[)] must be sorted")
})
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.