context("Matching groups")
set.seed(1410)
num <- matrix(sample(9, 10 * 10, replace = T), ncol = 10)
num_flat <- apply(num, 1, str_c, collapse = "")
phones <- str_c(
"(", num[, 1], num[ ,2], num[, 3], ") ",
num[, 4], num[, 5], num[, 6], " ",
num[, 7], num[, 8], num[, 9], num[, 10])
test_that("special case are correct", {
expect_equal(str_match(NA, "(a)"), matrix(NA_character_))
expect_equal(str_match(character(), "(a)"), matrix(character(), 0, 1))
})
test_that("no matching cases returns 1 column matrix", {
res <- str_match(c("a", "b"), ".")
expect_equal(nrow(res), 2)
expect_equal(ncol(res), 1)
expect_equal(res[, 1], c("a", "b"))
})
test_that("single match works when all match", {
matches <- str_match(phones, "\\(([0-9]{3})\\) ([0-9]{3}) ([0-9]{4})")
expect_equal(nrow(matches), length(phones))
expect_equal(ncol(matches), 4)
expect_equal(matches[, 1], phones)
matches_flat <- apply(matches[, -1], 1, str_c, collapse = "")
expect_equal(matches_flat, num_flat)
})
test_that("match returns NA when some inputs don't match", {
matches <- str_match(c(phones, "blah", NA),
"\\(([0-9]{3})\\) ([0-9]{3}) ([0-9]{4})")
expect_equal(nrow(matches), length(phones) + 2)
expect_equal(ncol(matches), 4)
expect_equal(matches[11, ], rep(NA_character_, 4))
expect_equal(matches[12, ], rep(NA_character_, 4))
})
test_that("match returns NA when optional group doesn't match", {
expect_equal(str_match(c("ab", "a"), "(a)(b)?")[,3], c("b", NA))
})
test_that("match_all returns NA when option group doesn't match",{
expect_equal(str_match_all("a", "(a)(b)?")[[1]][1, ], c("a", "a", NA))
})
test_that("multiple match works", {
phones_one <- str_c(phones, collapse = " ")
multi_match <- str_match_all(phones_one,
"\\(([0-9]{3})\\) ([0-9]{3}) ([0-9]{4})")
single_matches <- str_match(phones,
"\\(([0-9]{3})\\) ([0-9]{3}) ([0-9]{4})")
expect_equal(multi_match[[1]], single_matches)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.