Nothing
# Test checkRange function
#----------------------------------------------
testthat::test_that("Test checkRange for invaild value for variable interval", code = {
M <- c(3, 6, 2)
testthat::expect_error(checkRange(M, 1:10),
info = "Test checkRange for invaild value for variable interval"
)
})
testthat::test_that("Test checkRange valid value", code = {
testthat::expect_invisible(checkRange(1:5, interval = c(1, 5), inclusion = c(TRUE, TRUE)))
})
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.