test_that("check_string errors", {
y <- "oeu"
expect_identical(check_string(y), y)
y <- 2
expect_error(check_string(y), "y must be of class 'character'")
y <- c(TRUE, TRUE)
expect_error(check_string(y), "y must be a scalar")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.