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.9003) like() fix

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2021-04-16 11:41:05 +02:00
parent d277d58475
commit 00d3e437a8
29 changed files with 78 additions and 62 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
R/aa_helper_functions.R
View File

@ -211,10 +211,20 @@ search_type_in_df <- function(x, type, info = TRUE) {
found
}
is_possibly_regex <- function(x) {
tryCatch(vapply(FUN.VALUE = character(1), strsplit(x, ""),
function(y) any(y %in% c("$", "(", ")", "*", "+", "-", ".", "?", "[", "]", "^", "{", "|", "}", "\\"), na.rm = TRUE)),
error = function(e) rep(TRUE, length(x)))
is_valid_regex <- function(x) {
regex_at_all <- tryCatch(vapply(FUN.VALUE = logical(1),
X = strsplit(x, ""),
FUN = function(y) any(y %in% c("$", "(", ")", "*", "+", "-",
".", "?", "[", "]", "^", "{",
"|", "}", "\\"),
na.rm = TRUE)),
error = function(e) rep(TRUE, length(x)))
regex_valid <- vapply(FUN.VALUE = logical(1),
X = c("[.", "."),
FUN = function(y) !"try-error" %in% class(try(grepl(y, ""),
silent = TRUE)),
USE.NAMES = FALSE)
regex_at_all & regex_valid
}
stop_ifnot_installed <- function(package) {