arbelt · January 17, 2017 22:25
diff --git a/Match multiple patterns.R b/Match multiple patterns.R
 library(stringr)
 library(purrr)

 match_multiple <- function(strings, patterns){
  match_fns <- map(
    as.list(patterns), 
    ~ partial(str_detect, pattern = .,  .lazy = FALSE, .first = FALSE))
  reduce(invoke_map(match_fns, list(list(strings))), `|`)
 }
	library(stringr)
	library(purrr)

	match_multiple <- function(strings, patterns){
	match_fns <- map(
	as.list(patterns),
	~ partial(str_detect, pattern = ., .lazy = FALSE, .first = FALSE))
	reduce(invoke_map(match_fns, list(list(strings))), `\|`)
	}