tests/testthat/test_filterPatternMatches.R

library(patternapply)
context("filterPatternMatches")

test_that("filterPatternMatches", {
  expect_equal(filterPatternMatches(paste(seq(0,99)), "[1-9]$"),
               paste(seq(0, 99, by=10)))
})
eamoncaddigan/patternapply documentation built on May 15, 2019, 7:27 p.m.