tests/run_tests.R

In needy: needy

library(testthat)

all_patterns <- function (x) {
	# get every permutation of elements in x,
	# collapse them with |.

	stopifnot (length(x) < 6)

	permutations <- sapply(
		combinat::permn(x),
		function (perm) {
			paste0(perm, collapse = ".+")
		})

	paste0(permutations, collapse = "|")
}

test_package('needy')