stri_(any|all)_(regex|fixed)

[bhagwataditya]

Thankyou very much for wonderful stringi :)
Right now I am doing this:

#' Does any string have a regex
#' @param str      string vector
#' @param pattern  string
#' @return TRUE or FALSE
#' @examples 
#' str <- c('s1 Spectral Count', 's1 Unique Spectral Count')
#' patterns <- c('Spectral Count', '(?<!Unique) Spectral Count', 'Intensity')
#' stri_detect_regex(str, pattern = patterns[1])
#' stri_detect_regex(str, pattern = patterns[2])
#' stri_detect_regex(str, pattern = patterns[3])
#' stri_any_regex(   str, pattern = patterns)
#' @export
.stri_any_regex <- function(str, pattern) any(stri_detect_regex(str, pattern))

stri_any_regex <- function(str, pattern){
    vapply(pattern, function(pat) .stri_any_regex(str, pat), logical(1))
}

Something like this of interest to be had within stringi?

[gagolews]

Thanks, but as you can see, this is easily achievable with 2-3 function calls, therefore no need to make the stringi API more bloated than it already is...

Alternatives:

1. use outer+apply
2. use a regex like pat1|pat2|pat3 - should be the fastest