test_that("single_value", {
expect_equal(single_value(1), 1)
expect_equal(single_value(c(1, NA)), 1)
expect_equal(single_value(c(1, NA, 1)), 1)
expect_equal(single_value(NA_real_), NA)
expect_equal(single_value(NA, missing = NA_real_), NA_real_)
# Order of `missing` affects the output
expect_equal(single_value("", missing = c(NA, "")), NA_character_)
expect_equal(single_value(NA, missing = c("", NA)), "")
# Check warn_if_all_missing
expect_silent(single_value(NA))
expect_warning(
single_value(NA, warn_if_all_missing = TRUE),
regexp = "All values are missing"
)
expect_error(
single_value(1:2),
regexp = "More than one (2) value found (1, 2)",
fixed = TRUE
)
expect_error(
single_value(1:2, info = "multiple"),
regexp = "More than one (2) value found (1, 2): multiple",
fixed = TRUE
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.