tests/testthat/test-group.R

context("Checking group")

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

    expected <- c("(A)", "(B)", "(C)", "(D)", "(E)", "(F)", "(G)", "(H)", "(I)", 
        "(J)")
    
    expect_equivalent(group(LETTERS[1:10]), 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.