Beyond the 2 essential arguments of grep, most of the other would be also useful if they were included in patterns. In fact, any other except value could help to look for much other patterns.
In particular, it is needed for certain #regex which only work under perl=TRUE.
So I propose to modify
patterns = function(..., cols=character(0L)) {
# if ... has no names, names(list(...)) will be "";
# this assures they'll be NULL instead
L = list(...)
p = unlist(L, use.names = any(nzchar(names(L))))
if (!is.character(p))
stopf("Input patterns must be of type character.")
matched = lapply(p, grep, cols)
# replace with lengths when R 3.2.0 dependency arrives
if (length(idx <- which(sapply(matched, length) == 0L)))
stopf('Pattern(s) not found: [%s]', brackify(p[idx]))
matched
}with something like
patterns = function(..., cols=character(0L), ignore.case = FALSE, perl = FALSE, fixed = FALSE, useBytes = FALSE, invert = FALSE) {
# if ... has no names, names(list(...)) will be "";
# this assures they'll be NULL instead
L = list(...)
p = unlist(L, use.names = any(nzchar(names(L))))
if (!is.character(p))
stopf("Input patterns must be of type character.")
matched = lapply(p, grep, cols, ignore.case = ignore.case, perl = perl, fixed = fixed, useBytes = useBytes, invert = invert)
# replace with lengths when R 3.2.0 dependency arrives
if (length(idx <- which(sapply(matched, length) == 0L)))
stopf('Pattern(s) not found: [%s]', brackify(p[idx]))
matched
}Thanks!
Reactions are currently unavailable
Beyond the 2 essential arguments of grep, most of the other would be also useful if they were included in patterns. In fact, any other except value could help to look for much other patterns.
In particular, it is needed for certain #regex which only work under perl=TRUE.
So I propose to modify
with something like
Thanks!