mirror of
https://github.com/msberends/AMR.git
synced 2025-07-11 07:01:57 +02:00
(v1.2.0.9014) ab_from_text()
This commit is contained in:
2
R/like.R
2
R/like.R
@ -64,7 +64,7 @@
|
||||
#' }
|
||||
like <- function(x, pattern, ignore.case = TRUE) {
|
||||
# set to fixed if no regex found
|
||||
fixed <- all(!grepl("[$.^*?+}{|)(]", pattern))
|
||||
fixed <- all(!grepl("[\\[$.^*?+-}{|)(]", pattern))
|
||||
if (ignore.case == TRUE) {
|
||||
# set here, otherwise if fixed = TRUE, this warning will be thrown: argument 'ignore.case = TRUE' will be ignored
|
||||
x <- tolower(x)
|
||||
|
Reference in New Issue
Block a user