Permalink
Fetching contributors…
Cannot retrieve contributors at this time
32 lines (31 sloc) 1.01 KB
#' Count the number of matches in a string.
#'
#' Vectorised over `string` and `pattern`.
#'
#' @inheritParams str_detect
#' @return An integer vector.
#' @seealso
#' [stringi::stri_count()] which this function wraps.
#'
#' [str_locate()]/[str_locate_all()] to locate position
#' of matches
#'
#' @export
#' @examples
#' fruit <- c("apple", "banana", "pear", "pineapple")
#' str_count(fruit, "a")
#' str_count(fruit, "p")
#' str_count(fruit, "e")
#' str_count(fruit, c("a", "b", "p", "p"))
#'
#' str_count(c("a.", "...", ".a.a"), ".")
#' str_count(c("a.", "...", ".a.a"), fixed("."))
str_count <- function(string, pattern = "") {
switch(type(pattern),
empty = stri_count_boundaries(string, opts_brkiter = opts(pattern)),
bound = stri_count_boundaries(string, opts_brkiter = opts(pattern)),
fixed = stri_count_fixed(string, pattern, opts_fixed = opts(pattern)),
coll = stri_count_coll(string, pattern, opts_collator = opts(pattern)),
regex = stri_count_regex(string, pattern, opts_regex = opts(pattern))
)
}