https://github.com/cran/pracma
Tip revision: 85eeff77b2e878cc9dbd7659e4acbc035be93c28 authored by Hans W. Borchers on 22 September 2022, 13:50:02 UTC
version 2.4.2
version 2.4.2
Tip revision: 85eeff7
regexp.R
##
## r e g e x p . R Test suite
##
regexp <- pracma::regexp
regexpi <- pracma::regexpi
regexprep <- pracma::regexprep
refindall <- pracma::refindall
s <- "bat cat can car COAT court cut ct CAT-scan"
pat <- 'c[aeiou]+t'
identical(regexp(s, pat)$match,
c("cat", "cut"))
identical(regexpi(s, pat)$match,
c("cat", "COAT", "cut", "CAT"))
identical(regexp(s, pat, once = TRUE)$match,
c("cat"))
identical(regexp(s, pat, ignorecase = TRUE, split = TRUE)$split,
c("bat ", " can car ", " court ", " ct ", "-scan"))
identical(regexprep(s, pat, '---'),
c("bat --- can car COAT court --- ct CAT-scan"))
identical(regexprep(s, pat, '---', once = TRUE),
c("bat --- can car COAT court cut ct CAT-scan"))
identical(regexprep(s, pat, '---', ignorecase = TRUE),
c("bat --- can car --- court --- ct ----scan"))
identical(refindall("AbababaBa", 'aba'), c(3, 5))
identical(refindall("AbababaBa", 'aba', ignorecase = TRUE), c(1, 3, 5, 7))