1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
# General wrapper around sub, gsub, regexpr, gregexpr, grepl.
# Vectorises with pattern and replacement, and uses fixed and ignored.case
# attributes.
re_call <- function(f, string, pattern, replacement = NULL) {
args <- list(pattern, replacement, string,
fixed = is.fixed(pattern), ignore.case = case.ignored(pattern),
perl = is.perl(pattern))
if (!("perl" %in% names(formals(f)))) {
if (args$perl) message("Perl regexps not supported by ", f)
args$perl <- NULL
}
do.call(f, compact(args))
}
re_mapply <- function(f, string, pattern, replacement = NULL) {
args <- list(
FUN = f, SIMPLIFY = FALSE, USE.NAMES = FALSE,
pattern, replacement, string,
MoreArgs = list(
fixed = is.fixed(pattern),
ignore.case = case.ignored(pattern))
)
do.call("mapply", compact(args))
}
# Check if a set of vectors is recyclable.
# Ignores zero length vectors. Trivially TRUE if all inputs are zero length.
recyclable <- function(...) {
lengths <- vapply(list(...), length, integer(1))
lengths <- lengths[lengths != 0]
if (length(lengths) == 0) return(TRUE)
all(max(lengths) %% lengths == 0)
}
|
