test_that("paste_skip_na", {
# handle no arguments the same as paste()
expect_equal(paste_skip_na(), paste())
expect_equal(paste_skip_na(NA), NA_character_)
expect_equal(paste_skip_na(NA, NA), NA_character_)
expect_equal(paste_skip_na(NA, NA, sep = ","), NA_character_)
# It does not behave like paste(NA, NA, collapse = ",") nor does it behave like paste(c(), collapse = ",")
expect_equal(paste_skip_na(NA, NA, collapse = ","), NA_character_)
expect_equal(paste_skip_na("A", NA), "A")
expect_equal(paste_skip_na("A", NA, collapse = ","), "A")
expect_equal(paste_skip_na("A", NA, c(NA, "B"), collapse = ","), "A,A B")
expect_equal(paste_skip_na("A", NA, c(NA, "B"), sep = ","), c("A", "A,B"))
expect_equal(paste_skip_na(c("A", "B"), NA), c("A", "B"))
expect_equal(paste_skip_na(NA, c("A", "B")), c("A", "B"))
})
test_that("paste_skip_na expected errors", {
expect_error(
paste_skip_na(c("A", "B"), c("A", "B", "C")),
regexp = "Arguments must be the same length or one argument must be a scalar.",
fixed = TRUE
)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.