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

(v1.6.0.9004) unit test fix

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2021-04-16 12:02:57 +02:00
parent 00d3e437a8
commit 9842ef9660
15 changed files with 18 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
R/aa_helper_functions.R
View File

@ -217,10 +217,11 @@ is_valid_regex <- function(x) {
FUN = function(y) any(y %in% c("$", "(", ")", "*", "+", "-",
".", "?", "[", "]", "^", "{",
"|", "}", "\\"),
na.rm = TRUE)),
na.rm = TRUE),
USE.NAMES = FALSE),
error = function(e) rep(TRUE, length(x)))
regex_valid <- vapply(FUN.VALUE = logical(1),
X = c("[.", "."),
X = x,
FUN = function(y) !"try-error" %in% class(try(grepl(y, ""),
silent = TRUE)),
USE.NAMES = FALSE)