R/utils.R

In PiotrTymoszuk/figur: Smart Handling of Figures, Tables and Code in RMarkdown Documents

# Non-exported multi-purpose utilities

# Regex search --------

#' Search a vector with a regular expression.
#'
#' @description Searches a vector (character or list) with a regular expression.
#' @param x a vector.
#' @param regex a regular expression.
#' @param ... additional arguments passed to \code{\link[stringi]{stri_detect}}.
#' @return a logical vector.

  search_regex <- function(x, regex, ...) {

    if(!is.list(x)) {

      return(stri_detect(str = x, regex = regex, ...))

    }

    search_res <- map(x,
                      stri_detect,
                      regex = regex, ...)


    return(map_lgl(search_res, any))

  }

# END ------