tests/testthat/test-bind.R

context("Checking bind")

test_that("bind adds boundaries on either end",{

    expected <- c("[A]", "[B]", "[C]", "[D]", "[E]", "[F]", "[G]", "[H]", "[I]", 
        "[J]")
    
    expect_equivalent(bind(LETTERS[1:10], left="[", right="]"), expected)

})

Try the qdapRegex package in your browser

Any scripts or data that you put into this service are public.

qdapRegex documentation built on Oct. 17, 2023, 5:06 p.m.