tests/testthat/test-strRemoveEmpty.R

In acidgenomics/AcidBase: Acid Genomics Base Functions

test_that("strRemoveEmpty", {
    x <- c("", "a", "b", " ", NA_character_)
    expect_identical(
        object = strRemoveEmpty(x, naOk = TRUE, spacesOk = TRUE),
        expected = c("a", "b", " ", NA_character_)
    )
    expect_identical(
        object = strRemoveEmpty(x, naOk = FALSE, spacesOk = FALSE),
        expected = c("a", "b")
    )
})