tests/testthat/test-explain.R

context("Checking explain")

test_that("explain produces a character vector",{

    m <- explain("(?<=foo)\\s+\\(\\d{4}\\)")
    expect_true(is.character(m))
    #expect_true(length(as.character(m)) > 8)
    
})

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.