P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-08 18:01:50 +02:00
Code Releases Activity

(v0.7.1.9024) eucast_rules() fix, new MOs

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2019-08-06 14:39:22 +02:00
parent 85b62aaf8f
commit 3a1f960f89
23 changed files with 252 additions and 411 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
R/like.R
View File

@ -76,7 +76,11 @@ like <- function(x, pattern) {
if (is.factor(x)) {
as.integer(x) %in% base::grep(pattern, levels(x), ignore.case = TRUE)
} else {
base::grepl(pattern, x, ignore.case = TRUE)
tryCatch(base::grepl(pattern, x, ignore.case = TRUE),
error = function(e) ifelse(test = grepl("Invalid regexp", e$message),
# try with perl = TRUE:
yes = return(base::grepl(pattern, x, ignore.case = TRUE, perl = TRUE)),
no = stop(e$message)))
}
}