Nothing
context("null-and-default")
skip_if_not_installed("modeltests")
library(modeltests)
test_that("tidy.NULL", {
expect_equal(tidy(NULL), tibble())
})
test_that("tidy.default", {
expect_error(td <- tidy(raw(1)))
x <- 5
class(x) <- c("foo", "bar")
expect_error(glance(x), regexp = "foo")
expect_error(glance(x), regexp = "[^bar]")
})
test_that("glance.NULL", {
expect_equal(glance(NULL), tibble())
})
test_that("glance.default", {
expect_error(glance(TRUE))
expect_error(glance(1))
expect_error(glance(1L))
expect_error(glance("a"))
x <- 5
class(x) <- c("foo", "bar")
expect_error(glance(x), regexp = "foo")
expect_error(glance(x), regexp = "[^bar]")
})
test_that("augment.NULL", {
expect_equal(augment(NULL), tibble())
})
test_that("augment.default", {
expect_error(augment(TRUE))
expect_error(augment(1))
expect_error(augment(1L))
expect_error(augment("a"))
x <- 5
class(x) <- c("foo", "bar")
expect_error(augment(x), regexp = "foo")
expect_error(augment(x), regexp = "[^bar]")
})
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.