tests/testthat/test-strExtract.R

In acidgenomics/acidbase: Acid Genomics Base Functions

test_that("Extract first match", {
    expect_identical(
        object = strExtract(
            x = c(
                "apples x10",
                "bag of flour",
                "bag of sugar",
                "milk x200 300",
                NA_character_
            ),
            pattern = "\\d+"
        ),
        expected = c(
            "10",
            NA_character_,
            NA_character_,
            "200",
            NA_character_
        )
    )
    expect_identical(
        object = strExtract(
            x = c(
                "apples x4",
                "bag of flour",
                "bag of sugar",
                "milk x2",
                NA_character_
            ),
            pattern = "[a-z]+"
        ),
        expected = c(
            "apples",
            "bag",
            "bag",
            "milk",
            NA_character_
        )
    )
    expect_identical(
        object = strExtract(
            x = c(
                "aaa aa a",
                "aa a",
                "a",
                "b",
                "b bb",
                "b bb bbb",
                "b aa"
            ),
            pattern = "a",
            fixed = TRUE
        ),
        expected = c(
            "a",
            "a",
            "a",
            NA_character_,
            NA_character_,
            NA_character_,
            "a"
        )
    )
    expect_identical(
        object = strExtract(
            x = c(
                "aaa aa a",
                "aa a",
                "a",
                "b",
                "b bb",
                "b bb bbb",
                "b aa"
            ),
            pattern = "a+",
            fixed = FALSE
        ),
        expected = c(
            "aaa",
            "aa",
            "a",
            NA_character_,
            NA_character_,
            NA_character_,
            "aa"
        )
    )
})