Nothing
enumerate <- 0 # to count number of tests
x <- factor(letters)
expect_error(
broadcaster(x) <- TRUE,
"cannot make this object broadcaster"
)
x <- data.frame(letters, 1:26)
expect_error(
broadcaster(x) <- TRUE,
"cannot make this object broadcaster"
)
enumerate <- enumerate + 2L
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.